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ABSTRACT 


.  \ 

Crucial  to  the  Naval  mission,  but  administrative  in 
nature,  is  the  assignment  of  ship's  company  to  temporary  and 
permanent  duty  assignments.  This  study  implements  a 
personnel  database  system  for  personnel  management  on  a 
small  battle  ship.  dBASE  III  is  used  as  a  "Database 
Management  Software"  and  the  "System"  is  implemented  as  a 
collection  of  algorithms  providing  intelligent  decisions 
about  these  assignments.  It  can  be  supported  by  an  IBM 
PC/XT  (or  an  IBM  PC/XT  compatible)  microcomputer. 

The  system  is  designed  to  provide  real  time  management 
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INTRODUCTION 


I . 

A.  INTRODUCTION  TO  THE  PROBLEM 

In  every  battle  ship  the  personnel  should  be  organized 
such  that  the  ship  could  provide  a  variety  of  functions 
and  operate  under  different  situations,  in  different 
environments. 

This  personnel  organization  follows  standards  that  each 
country  consecrates  and  is  based  on  the  missions  that  each 
individual  ship  should  be  able  to  perform.  This  directly 
determines  the  number  of  men  that  serve  on  this  ship,  and 
the  rank,  the  specialization  and  the  skills  of  each  member 
of  the  crew. 

Although  there  are  organization  tables,  general  rules 
for  assignment,  and  records  of  the  character istics  (rank, 
specialization,  education,  special  skills,  experience,  etc.) 
of  each  member  of  the  crew,  the  assignment  of  the  duties  to 
each  member  of  the  crew  is  sometimes  a  very  difficult  and 
time  consuming  job.  The  task  is  even  more  complex  due  to 
the  requirement  to  cross  assign  personnel  to  additional  or 
collateral  duties,  which  are  required  under  certain 
conditions.  In  this  case  the  appropriate  personnel  have  to 
be  selected  in  a  real  time  environment  but  under  the 
restriction  that  those  absent  from  traditional  jobs  will  not 
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be  a  detriment  to  the  operation  of  the  department  in  which 
they  belong. 

Personnel  changes  are  an  annual  occurrence,  and  during 
these  annual  reassignments,  it  is  quite  often  the  case  that 
the  new  member  of  the  crew  cannot  be  substituted  directly 
for  the  departing  personnel  in  all  additional  duties.  New 
members  may  have  served  in  similar  additional  duties. 

If  there  is  not  enough  time  for  the  new  member  to  be 
trained,  these  additional  duties  have  to  be  reassigned  among 
the  other  members  of  the  crew  until  the  training  of  the  new 
members  can  be  completed. 

Both  the  initial  construction  and  the  reconstruction  of 
these  assignment  tables  are  based  on  the  existing  records  of 
the  personnel.  The  assignment  process  is  a  constant 
reexamination  of  these  records.  Existing  lists  and  tables 
must  be  compared  with  the  new  assembled  information.  The 
reevaluation  of  the  current  assignment  lists  can  take  a 
considerable  amount  of  time. 

The  problem  is  critical  both  in  large  and  small  ships. 

In  the  first  case,  there  are  a  large  number  of  personnel 
assigned  and  an  enormous  amount  of  records  must  be  examined. 
In  the  second  case,  that  is  in  the  case  of  small  ships,  the 
limited  number  of  people  that  serve  on  the  ship  makes  the 
assignment  of  the  additional  duties  much  more  difficult 
simply  because  of  a  large  number  of  jobs,  and  limited  people 
to  fill  them. 
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Finally,  in  the  Hellenic  Navy  only  officers  and  the  non¬ 
commissioned  officers  serve  on  a  permanent  basis,  while  the 
lower  level  personnel  (seamen)  serve  for  a  standard  (usually 
short)  period  of  time.  Therefore,  from  time  to  time 
projection  tables  reflecting  future  needs  in  lower  level 
personnel  must  be  assembled  and  sent  to  Navy  training 
centers  for  new  personnel  availability  planning  in  replacing 
those  finishing  their  service  obligations. 

The  purpose  of  this  application  is  to  substitute  the 
traditional,  manual  way  in  which  personnel  records  are  used 
in  a  small  battle  ship  for  supporting  personnel  management, 
by  the  use  of  a  microcomputer  database  system  that  can  not 
only  provide  the  appropriate  information  for  personnel 
management  decisions,  but  also  provide  some  solutions  to  the 
assignment  problem  in  real  time. 

Of  course,  personnel  management  must  not  be  based  solely 
on  automated  methods,  or  computer  generated  solutions.  In 
this  instance  the  human  factor  plays  a  very  important  role 
in  this  kind  of  data  interpretation. 

However,  it  is  much  better  to  have  a  guick  basis  from 
which  to  start  the  decision  process  than  to  start  from  the 
beginning  with  the  full  review  process. 

A  small  ship  has  been  selected  as  a  model;  it  can  easily 
be  extended  to  the  personnel  assignment  problem  in  a  larger 
one.  The  construction  of  the  sample  database  for  represen¬ 
tation  purposes  is  much  easier,  and  no  significant  details 


are  likely  to  be  omitted  since  the  nature  of  the  problem  is 
the  same  in  both  large  and  small  ships. 

A  model  of  personnel  organization  according  to  Hellenic 
Navy  standards  will  be  used,  but  some  details  will  be 
omitted,  however,  due  to  the  unclassified  nature  of  the 
research  project.  Also  some  organization  modifications  have 
been  used  in  order  to  generalize  the  standards  used  by  most 
other  countries. 

B.  INTRODUCTION  TO  DATABASE  CONCEPTS 

During  the  last  fifteen  years  the  use  of  database 
systems  is  dramatically  increasing  year  by  year.  This  is 
because  a  database  system  compared  with  a  conventional 
digital  computer  has  a  number  of  advantages. 

Database  processing  enables  more  information  to  be 
produced  from  a  given  amount  of  data.  When  data  is 
physically  partitioned,  as  it  is  in  file  processing  systems 
(Figure  1) ,  information  can  only  be  .derived  from  each  part 
individually,  and  not  derived  from  a  combination  of  these 
parts.  The  use  of  a  database  eliminates  this  disadvantage 
allowing  the  production  of  information  as  a  combination  of 
different  storage  parts  (Figure  2) . 

The  use  of  database  processing  has  also  the  advantage  of 
avoiding  data  duplication,  or  at  least  reduction  of  data 
duplication.  This  results  in  the  savings  of  storage  space 
and  reduced  processing  requirements. 
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Programs  of 

Reports 

'  system  1 

2  Programs  of 
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Reports 

p  system  3 

Figure  t.  The  traditional  File  Processing  System 


Figure  2.  Database  Processing  System 
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In  a  file  processing  system  each  program  used  must 
contain  a  description  of  the  format  of  the  files  it  uses. 
Thus,  the  structure  of  files  will  be  distributed  across 
application  programs.  When  the  structure  of  a  file  is 
changed,  the  appropriate  changes  must  be  integrated  into 
other  programs  that  use  this  file.  In  a  database 
application  the  application  programs  are  not  concerned  with 
the  structure  used  for  data  storage.  This  function  is 
assigned  to  the  "Database  Mangement  System"  and  thereby 
achieving  a  program/  data  independence  [Ref.  1]. 

Finally,  the  use  of  database  processing  has  the  advan¬ 
tage  of  better  data  management.  Maintenance  or  updating  of 
data  can  be  much  easier  in  a  centralized  database  system  and 
without  (or  at  least  with  a  minimum  amount  of)  data 
duplication  [Ref.  1]. 

C.  DEFINITIONS  AND  TERMINOLOGY 

Before  presenting  a  general  overview  of  such  a  database 
system,  some  basic  definitions  and  terminology  should  be 
provided . 

a)  A  "Database"  is  a  shared  collection  of  interrelated 
data  designed  to  meet  the  varied  information  needs  of 
an  organization. 

b)  A  "Database  Management  System"  (DBMS)  is  a  software 
system  that  performs  all  user's  requests  (update, 
insert,  delete,  retrieve)  for  data. 

c)  A  "Database  System"  is  a  system  to  record  and  maintain 
information  that  is  significant  to  an  organization  in 
the  decision  making  process. 
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d)  A  "File"  is  an  organized  collection  of  records 
representing  entities  of  the  same  type. 

e)  A  "Record"  is  a  collection  of  data  concerning  one 
entity  of  a  file.  Each  record  has  an  identical 
format . 

f)  A  "Field"  is  a  subdivision  of  a  record  and  it  contains 
a  unit  of  information.  It  is  the  smallest  unit  of 
named  data. 

g)  A  "Key"  is  an  attribute,  or  a  set  of  attributes,  whose 
value  uniquely  identifies  each  entity  in  a  file. 

h)  A  "Data  Definition  Language"  (DDL)  is  a  specialized 
language  used  for  the  description  of  the  database. 

i)  A  "Data  Manipulation  Language"  (DML)  is  the 
programming  language  used  to  formulate  queries  or  to 
write  application  programs  for  data  manipulation. 

j) ~  A  "Relationship"  between  files  is  an  ordered  list  of 

these  files.  The  relationship  can  be  subdivided  into 
the  following  three  categories: 

(1)  "One-to-one"  relationship,  when  for  each  entity  of 
a  set  of  entities  there  is  only  one  associated 
entity  in  another  set  of  entities  and  visa  versa. 

(2)  "One-to-many"  relationship,  when  for  each  entity 
of  a  set  of  entities  there  are  many  associated 
entities  in  another  set  of  entities. 

(3)  "Many-to-many"  relationship,  when  each  entity  of  a 
set  of  entities  can  be  related  with  any  number  of 
entities  in  another  set  of  entities  and  visa 
versa . 


D.  THE  ARCHITECTURE  OF  A  DATABASE  SYSTEM 

It  is  apparent  from  Figure  2,  that  the  most  important 
element  in  the  system  is  the  Database  Management  System 
(DBMS).  This  system  controls  the  sequence  of  actions  that 
are  taken  to  store  or  retrieve  data  from  the  database.  The 
basic  components  of  such  a  system  are  shown  in  Figure  3 
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(enclosed  in  dotted  lines).  In  this  figure  [Ref.  2]  a 
schematic  diagram  of  a  typical  database  system  is  repre¬ 
sented.  The  non-shadowed  rectangles  represent  software 
routines . 

Queries  coming  either  from  application  programs  or 
directly  from  a  user  are  routed  to  the  query  processor.  The 
query  processor  needs  to  know  the  structure  of  the  database 
in  order  for  the  query  to  be  interpreted  in  the  context  of  a 
particular  database  system.  Information  about  the  database 
can  be  built  into  the  query  processor  itself  or  it  can  be 
stored  separately  (as  in  Figure  3)  in  database  description 
tables.  [Ref.  2] 

The  processed  query  is  passed  to  a  collection  of 
routines  called  the  "Database  Manager".  The  database 
manager  must  be  able  to  perform  the  following  tasks: 

a)  To  translate  the  query  into  terms  that  the  "File 
Manager"  can  understand,  i.e.,  into  operations  on 
files  rather  than  on  the  more  abstract  data  structures 
of  the  database  description. 

b)  To  provide  the  appropriate  security,  so  that  only 
authorized  personnel  are  able  to  access  the  data 
stored  in  the  database. 

c)  To  validate  the  insertion  or  deletion  requirements  of 
a  user  query. 

d)  To  provide  synchronization  when  multiple  users  attempt 
to  access  the  database  at  the  same  time. 

The  "File  Manager"  could  be  the  general  purpose  file 
system  provided  by  the  underlying  operating  system,  but  in 
general  it  is  a  specialized  file  system  able  to  handle  the 
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complex  file  structures  used  to  store  the  database 
information.  Such  complex  structures  are  used  to  facilitate 
the  rapid  access  and  manipulation  of  data  in  the  database 
[Ref.  2] . 

In  a  database  system  a  variety  of  forms,  or  views,  of 
data  are  defined.  These  views  can  be  seen  as  different 
levels  of  abstraction  that  are  used  for  the  description  of 
this  database  system.  From  these  views  the  most  commonly 
used  are  those  represented  in  Figure  4  [Ref.  2],  i.e.,  the 
"External"  view,  the  "Conceptual"  view,  and  the  "Internal" 
view. 

The  "Conceptual"  view,  also  called  "schema"  is  the 
complete  and  logical  view  of  data.  In  other  words, 
regardless  of  how  data  is  actually  stored  in  its  physical- 
storage  device,  it  is  represented  in  such  a  way  that  can  be 
understandable  by  a  human. 

External  view  Conceptual  view  Internal  view 

User 
group  l 

User 

group 2 

User 
group  3 

User 
group  n 

Figure  4.  Levels  of  Abstraction  in  a  Database  System 
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But-  in  general  it  is  not  desirable  that  every  applica¬ 
tion  program  be  able'  to  access  all  the  data  in  the  database. 
So /  another  view  is  defined  called  "subschema"  or  "External" 
view  and  it  defines  a  subset  of  the  schema  to  be  seen  by  a 
given  application  program  or  a  user.  There  may  be  more  than 
one  external  view,  and  they  can  overlap  each  other. 

Finally,  the  third  view  of  the  data,  called  "Interval" 
view  of  "Physical"  view  is  used  to  describe  the  form  of  the 
data  as  it  appears  to  a  particular  processing  computet, 
i.e.,  how  data  is  physically  arranged,  and  how  it  is 
allocated  to  files. 

The  following  example  makes  the  above  distinction 
between  views  more  understandable  [Ref.  1]. 

For  a  database  system  used  by  a  bank,  the  "database 
schema",  or  the  "conceptual"  view,  might  include  the  records 
for  customers,  the  records  for  the  checking  accounts,  the 
records  for  the  savings  accounts,  the  records  for  the  loans, 
and  the  credit  records. 

Different  "external"  views,  or  "subschemas",  can  be 
defined.  One  may  contain  the  customer  records  and  the 
records  for  checking  accounts.  This  would  be  the  "checking 
subschema".  Another  may  contain  customer,  loan  and  credit 
records  and  thereby  be  the  "loan  subschema"  and  so  on. 

Finally,  the  "internal"  view  has  nothing  to  do  with  the 
customers,  loans,  credits,  etc.,  but  it  describes  what  data 
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is  used,  how  it  is  physically  arranged  and  how  it  is 
allocated  in  files. 

E.  DATA  MODELS 

The  real  world  associations  of  objects  and  events  have 
to  be  represented  as  a  "model",  in  order  for  this  represen¬ 
tation  to  be  understandable.  The  same  thing  is  required  for 
the  data  representation.  The  model  used  for  the  data 
representation  is  called  the  "data  model"  and  it  is  an 
abstract  representation  of  the  data  about  entities,  events, 
activities,  and  their  associations. 

In  the  commercial  database  systems  three  kinds  of  data 
models  are,  in  general,  used.  These  data  models  are  the 
"Hierarchical  data  model",  the  "Network  data  model",  and  the 
"Relational  data  model".  Each  one  has  its  own  features, 
advantages,  and  limitations. 

1.  The  Hierarchical  Data  Model 

In  a  hierarchical  data  model  the  data  is  represented 
as  a  set  of  nested  one-to-many  and  one-to-one  relationships. 

The  tree  structure  is  used,  and  an  organization  is 
viewed  as  a  hierarchy  of  positions.  Multiple  tree 
structures  can  be  used  in  the  same  database  and  each  tree 
consists  of  a  hierarchy  of  records.  Figure  5  gives  an 
example  of  a  representation  of  data  organized  in  a  tree 
structure . 

The  advantage  of  this  data  model  is  its  data  struc¬ 
ture.  The  tree  structure  is  well  known  and  widely  used  in 
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Figure  5.  A  Hierarchical  dele  model 


igure  6.  A  Network  data  model 


many  other  applications  in  addition  to  databases.  The 
disadvantage  is  that  this  model  cannot  support  the  many-to- 
one  relationship  and,  as  a  result,  redundancy  of  data 
occurs . 

2 .  The  Network  Data  Model 

The  data  in  a  network  data  model  is  represented  by  a 
set  of  record  types  and  pairwise  relationships ’between  these 
record  types. 

The  network  data  model  supports  the  use  of  multiple 
one-to-many  and  many-to-one  relationships  between  the  same 
pair  of  record  types,  but  relations  that  involve  more  than 
two  record  types  are  not  directly  permitted.  In  other 
words,  the  many-to-many  relationship  is  not  supported  by  the 
network  models. 

The  basic  data  structure  in  a  network  database  is 
the  graph  and  Figure  6  provides  an  example  of  such  a 
structure . 

The  network  data  model  can  be  viewed  as  an  extension 
of  the  hierarchical  data  model,  or  the  hierarchical  data 
model  can  be  considered  as  a  special  case  of  a  network  data 
model,  because  both  models  use  as  a  basic  data  structure  the 
graph  (a  tree  structure  is  always  considered  a  special  case 
of  a  graph) .  Neither  can  support  the  many-to-many  relation¬ 
ship  and  only  the  network  data  model  can  support  the  many- 
to-one  relationship.  This  is  in  fact  the  basic  difference 
between  a  tree  structure  and  a  graph. 
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3.  The  Relational  Data  Model 

The  relational  data  model  differs  from  the 
hierarchical  and  network  data  model.  The  mathematical 
concept  which  the  relational  data  model  is  based  on  is  the 
set  theoretic  relation.  Some  definitions  [Ref.  2]  of  this 
theory  should  be  given  at  this  point  for  better  represen¬ 
tation  of  this  model. 

a)  Domain  is  simply  a  set  of  values,  and  it  is  written  as 

V 

b)  The  Cartesian  product  of  domains  D^,  D_ ,  D^,  ...»  D 

which  is  written  as  D^XD2XD2» • «XDn  is  the  set  of  all 
n-tuples  (u^ ,  Uj,  u^,  ...,  un)  such  that  u^  is  in  D-^, 
U2  is  in  D2,  and  so  on.  1 

c)  '  A  relation  is  a  subset  of  the  Cartesian  product  of  a 

list  of  domains. 

d)  Tuples  are  the  members  of  a  relation. 

Relations  are  represented  as  two-dimensional  tables. 
Each  row  in  such  a  table  is  a  tuple,  and  each  column  corre¬ 
sponds  to  one  component.  Columns  are  given  names  called 
"attributes"  and  each  column  contains  values  about  the  same 
attribute.  When  attribute  names  are  attached  to  columns  of 
a  relation  then  the  order  of  the  columns  becomes  unimpor¬ 
tant.  The  set  of  attribute  names  for  a  relation  is  called 
the  "relation  scheme".  Figure  7  shows  a  representation  of  a 
relation . 

A  relational  data  model  represents  data  as  a 
collection  of  relation  schemes.  Tables  that  are  used  to 
represent  the  relations  must  have  the  following  properties: 
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a)  Each  column  of  such  a  table  must  contain  values  about 
t h e  ■  s ame  attribute. 

b)  Each  column  must  have  a  distinct  name. 

c)  Each  row  is  distinct. 

d)  The  sequence  of  the  rows  is  immaterial. 

Attributes 


i  i  t 
i  i  i 
«  i  i 


Figure  7.  A  Representation  of  a  Relation 


The  advantage  from  the  use  of  the  tables  as  a  repre¬ 
sentation  method  is  that  the  tables  are  more  understandable 
than  the  graphs  or  the  trees.  In  addition  to  its  mathemati¬ 
cal  basis,  a. relation  data  model  differs  from  a  hierarchical 
or  a  network  data  model  in  the  following  points: 

a)  All  the  types  of  relationships  (one-to-one,  one-to- 
many,  and  many-to-many)  are  supported  by  this  model. 

b)  The  query  languages  that  are  used  in  this  data  model 
allow  the  manipulation  of  data  as  groups  and  not 
procedurally  as  one  record  at  a  time. 

c)  Finally,  the  relational  data  model  provides  more  data 
flexibility  since  relationships  need  not  be  predefined 
during  the  design  phase. 
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ANALYSIS 
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II. 

According  to  the  traditional  approach  for  a  software 
development,  systems  development  can  generally  be  thought  as 
having  two  major  components:  systems  analysis  and  system 
design. 

System  analysis  is  the  process  of  gathering  and 
interpreting  facts,  and  using  the  facts  to  improve  the 
existing  system  through  better  procedures  and  methods. 

System  design  is  the  process  of  planning  a  new  system  to 
replace  or  complement  the  old  one  [Ref.  3].  In  other  words, 
analysis  specifies  what  the  system  should  do,  and  design 
states  how  to  accomplish  the  objectives. 

The  first  step  of  the  analysis  phase  is  the  system  study 
which  includes  the  accumulation  of  all  existing  information 
that  leads. to  the  need  of  a  new  system  development  as  well 
as  the  collection  of  all  problems  related  to  the  system  in 
use. 

The  description  of  the  existing  situation  and  of  the 
problems  related  to  this  situation  is  very  important  for  two 
tasks  of  the  analysis  phase. 

First,  if  the  existing  problems  are  well  described,  the 
requirements  for  the  new  system  can  be  stated  clearly, 
unambiguously  and  exhaustively. 
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Second,  it  is  much  easier  for  the  person  who  has  the 
authority  to  acept  or  not  the  starting  of  a  project,  to 
determine  if  the  elimination  of  the  existing  problems  and 
the  proposed  improvements  satisfy  one  or  more  of  the  reasons 
for  a  project  initiation. 

Accordig  to  J.  A.  Senn  [Ref.  3]  the  reasons  for  a 
project  initiation  are  the  following: 

a.  Greater  processing  speed 

b.  Better  accuracy  and  improved  consistency 

c.  Faster  information  retrieval 

d.  Reduced  cost 

e. "  Better  security 

In  general,  all  of  the  above  reasons  should  be  satisfied 
by  the  use  of  a  new  system,  but  it  is  in  each  organization's 
responsibility  to  decide  how  many  of  the  above  reasons 
should  be  satisfied  in  order  to  make  the  determination  if  a 
new  system  is  reasonable  to  be  developed. 

In  the  following  parts  of  this  chapter,  the  existing 
system  will  be  described,  an  examination  will  be  done  of  how 
many  reasons  for  a  project  initiation  are  satisfied,  and  the 
requirements  of  the  system  under  development  will  be  stated. 

A.  DESCRIPTION  OF  CURRENT  SYSTEM 

As  previously  mentioned,  standards  exist  for  personnel 
organization  in  a  battle  ship  so  as  to  afford  the  ship  the 
ability  to  operate  under  a  variety  of  conditions. 
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According  to  the  Hellenic  Navy  standards,  which  do  not 
differ  much  from  the  standards  used  by  other  countries,  the 
personnel  in  a  battle  ship  are  divided  into  two  major 
categories.  The  first  category  includes  personnel  belonging 
to  the  "Deck"  department  and  the  second  category  includes 
the  personnel  belonging  to  the  "Machine"  department. 

Each  department  must  provide  a  number  of  functions  to 
the  operation  of  the  ship.  These  functions  usually  form  a 
hierarchy  of  subdepartments  within  the  main  department. 

The  "Deck"  department  serves  all  the  needs  of  a  battle 
ship  from  a  war  machine  point  of  view  and  it  includes  all 
subdepartments  partitioning  this  task,  i.e.,  the 
"Communication"  subdepartment,  the  "Weapons"  subdepartment, 
the  "Combat  Information"  subdepartment,  etc. 

The  "Machine"  department  serves  all  the  needs  of  a 
battle  ship  from  the  movement  and  repair  point  of  view  and 
it  includes  all  the  subdepartments  whose  functitons  are 
related  to  these  purposes,  i.e.,  the  subdepartment  "Damage 
Control",  the  subdepartment  "Electric  Installation",  the 
subdepartment  "Main  Engines",  etc. 

In  larger  ships,  other  departments  exist.  Among  them 
are  the  "Supply"  department  and  the  "Sanitary"  department. 
The  functions  of  these  departments  are  not  at  all  ignorable. 
Small  ships  must  have  the  appropriate  personnel  to  provide 
the  functions  of  these  departments,  but  in  an  environment 
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whose  personnel  is  limited,  these  departments  do  not  exist 
as  individual  departments.  The  personnel  responsible  for 
supporting  the  real  functions  of  these  departments  are,  in 
general,  attached  to  the  "Administration"  subdepartment  of 
the  "Deck"  department. 


Table  I  shows  the  subdepartments  that  each  of  the  main 
departments  include.  Since  the  model  of  a  small  ship  .will 
be  used  in  this  study  only  the  "Deck"  department  and  the 
"Machine"  departments  are  represented. 

Also  in  Table  I,  the  "Administration"  subdepartment  is 
considered  to  belong  to  the  "Deck"  department.  This  is  not 
exactly  the  case  since  the  "Administration"  subdepartment 
must  have  access  to  all  personnel  in  a  battle  ship.  The 
reason  for  this  representation  is  that  the  supervising 


TABLE  I. 

CLASSIFICATION  OF  DEPARTMENTS  AND  SUBDEPARTMENTS 
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Ul 

O 
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DEPARTMENTS 

DECK 

MACHINE 

ADMINISTRATION 

DAMAGE  CONTROL 

WEAPON 

ELECTRIC  INSTALLATION 

COMBAT  INFORMATION 

ELECTRONIC  EQUIPMENTS 

COMMUNICATION 

MAIN  ENGINES 

NAVIGATION 

SPARE  PARTS 
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officer  of  this  subdepartment  is  the  Executive  Officer  of 
the  battle  ship  who  belongs  to  "Deck"  officers. 

Each  subdepartment  provides  a  number  of  functions.  For 
this  reason  several  jobs  have  been  identified  and  assigned 
to  personnel  belonging  to  this  subdepartment.  Because  each 
person  has  to  provide  not  only  a  specific  job,  but  a  group 
of  related  jobs,  "job  position"  descriptions  are  used  as  a 
subclassification  of  the  subdepartments.  Each  job  position 
in  general,  includes  more  than  one  job,  but  it  is  assigned 
to  a  single  person. 

.From  another  point  of  view,  personnel  are  divided  into 
three  categories  based  on  their  rank:  officers,  non- 
commisioned  officers  or  petty  officers,  and  the  lower  level 
personnel  which  will  be  referred  to  as  seamen. 

The  personnel  of  each  category  are  divided  into  a  number 
of  subcategories  according  to  specialization  of  each  person. 

Table  II  shows  the  three  categories  of  the  personnel 
according  to  those  ranks,  as  well  as  the  specializations 
that  each  category  includes. 

The  specialization  assigned  is  based  on  the  education 
and  training  levels  of  each  person.  These  specializations 
remain  with  an  individual  throughout  his  entire  military 
career . 

These  two  classifications,  that  is  the  classification  of 
the  job  stations  of  a  battle  ship  in  departments  and 
subdepartments,  and  the  classification  of  the  personnel 
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TABLE  II. 

PERSONNEL  CLASSIFICATION  ACCORDING  TO  SPECIALIZATIONS 


OFFICERS 

N.C.  OFFICERS 

SEAMEN 

WEAPON  USER 

WEAPON  USER 

z 

o 

WEAPON  CONTROL 

WEAPON  CONTROL 

COMMUNICATION 

COMMUNICATION 

P“ 

< 

DECK  OFFICER 

NAVIGATION 

NAVIGATION 

Nl 

RADAR  USER 

RADAR  USER 

_l 

< 

SANITARY 

SANITARY 

u 

SUPPLY 

SUPPLY 

UJ 

ELECTRICIAN 

ELECTRICIAN 

Q. 

0) 

ENGINEER 

ELECTRONIC 

ELECRONIC 

ENGINEER 

ENGINEER 

according  to  individual  specializations  are  related  to  the 
duty  assignment  problem. 

Table  III  shows  the  relationship  between  the  subdepart¬ 
ments  belonging  to  the  "Deck"  department,  and  personnel 
specializations . 

The  "Administration"  subdepartment  does  not  require 
any  specialization  of  its  personnel.  In  general,  the 
appropriate  personnel  are  distributed  across  other 
subdepartments . 

In  entries  for  both  non-commissioned  officers  and  for 
seamen  the  word  "ANY"  is  written  to  indicate  that  there  is 
no  need  for  a  specific  specialization  in  this  position. 
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TABLE  III. 


RELATIONSHIP  BETWEEN  "DECK”  DEPARTMENT 
AND  PERSONNEL  SPECIALIZATION 


■ 

SUBDEP ARTMI 

ENTS 

1 

ADMINISTR. 

ARMAMENT 

COMBAT  INFO. 

CQMMUNICAT 

NAVIGATION 

2Z 

Ui 

£ 

OFFICER 

DECK  OFFIC. 

DECK  OFFIC. 

DECK  OFFIC. 

DECK  OFFIC. 

DECK  OFFIC. 

|  SPECIALIZATIONS 

OL 

< 

Q. 

UI 

O 

U 

Ui 

o 

u. 

u. 

O 

P 

Z 

ANY 

WEAP.USER 

WEAP.CONTR. 

COMMUNICAT 

NAVIGATION 

SANITARY 

RADAR  USER 

SUPPLY 

|  SEAMEN 

WEAP.U5ER 

WEAP.CONTR. 

CQMMUNICAT 

NAVIGATION 

SANITARY 

SUPPLY 

Usually  persons  with  high  levels  of  education,  as  for 
example  persons  of  "Sanitary"  or  "Supply"  specialization, 
are  attached  to  this  subdepartment  because  the  physical 
subdepartments  do  not  exist. 

The  same  situation  exists  in  the  "Machine"  department, 
and  the  relationship  between  the  subdepartments  of  this 
department  and  the  personnel  specializations  is  indicated  in 
Table  IV. 

The  exception  here  is  the  "Spare  Parts"  subdepartment, 
but  again  it  is  assembled  by  appropriate  personnel 
distributed  over  other  subdepartments  of  this  department. 
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TABLE  IV. 


RELATIONSHIP  BETWEEN  "MACHINE"  DEPARTMENT 
AND  PERSONNEL  SPECIALIZATION 


SUBDEPART  M 

ENTS  " 

DAMAGE  CTRL 

ELECTR.INST 

ELECTR. EQUIP 

MAIN  ENGINES 

h- 

s 

Ui 

E 

t~ 

a 

Ui 

o 

u. 
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O 

ENGINEER 

ENGINEER 

ENGINEER 

ENGINEER 

ENGINEER 

1  SPECIALIZATIONS 

1 

N.C.OFF. 

ENGINEER 

ini 

ELECTRONIC 

ENGINEER 

ANY 

z 

Ui 

z 

< 

UJ 

to 

ENGINEER 

ELECTRICIAN 

ELECTRONIC 

ENGINEER 

ANY 

ELECTRICIAN 

ANY 

Op  to  this  point  the  procedure  of  assigning  the 
appropriate  personnel  to  the  appropriate  departments  and 
subdepartments  is  straightforward  and  not  difficult,  except 
in  the  case  of  assembling  the  "Administration”  and  the 
"Spare  Parts"  subdepartments.  Even  then  the  selection  of 
the  appropriate  persons  can  be  easily  accomplished. 

Therefore,  each  person  of  the  crew  is  assigned,  to  a 
specific  department  and  subdepartment,  and  the  officer  who 
manages  the  subdepartment,  is  responsible  for  the  assignment 
of  specific  jobs  to  each  member  of  his  subdepartment.  He 
is  also  charged  with  providing  for  the  training  of  the 
personnel  for  which  he  is  responsible,  and  the  cooperation 
of  his  subdepartment  with  the  other  subdepartments. 
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The  Executive  Officer  of  the  ship  is  the  supervisor  of 
all  the  subdepartments  belonging  to  the  "Deck"  department, 
and  the  Chief  Engineer  of  the  ship  supervises  the  subdepart¬ 
ments  which  belong  to  the  "Machine"  department. 

There  are  differences  between  the  operation  of  a  battle 
ship  and  the  operation  of  a  commercial  organization,  where 
personnel  arrive  each  morning,  work  for  a  specific  period  of 
time  and  leave  until  the  next  working  day.  A  battle  ship  is 
an  organization  which  must  operate  on  an  "around  the  clock" 
basis.  Personnel  are  usually  divided  into  shifts  to  cover 
the  entire  day. 

Shift  structures  are  not  the  same  in  all  cases.  For 
example,  three  8-hour  shifts,  with  equal  number  of  persons 
in  each  one,  usually  suffice  for  the  daily  and  routine  work 
in  port  and  during  periods  at  sea  with  no  threats,  levels  of 
alert  or  exercises.  During  periods  of  increased  activity, 
as  for  example  during  exercises,  two  shifts,  again  with 
equal  number  of  persons  in  each  one,  are  required  for  ship 
operation.  At  times  all  personnel  are  called  to  duty  when 
any  kind  of  threat  or  level  of  alert  exists.  To  plan  for 
all  three  cases,  job  assignment  is  complicated  by  cross 
assignment  of  personnel.  It  must  by  necessity  be  done  in 
advance. 

In  addition  to  the  above,  there  are  times  when  specific 
conditions  occur  which  require  that  special  purpose  groups 
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must  be  assembled  to  facilitate  temporary  functional 
requirements.  This  further  complicates  job  assignment  since 
the  absence  of  these  personnel  from  their  normal  positions 
must  not  interrupt,  even  temporarily,  the  operation  of  the 
department,  or  subdepartment. 

Related  to  the  task  of  job  assignment,  is  the  completion 
of  regular  monthly,  semiannual,  annual,  and  "upon  request" 
personnel  reports.  Some  of  them  are  simple  and  only  require 
information  stored  in  a  single  file.  But  some  are  compli¬ 
cated  and  require  a  time  consuming  examination  of  a  variety 
of  documents  in  order  to  extract  the  required  information 
for  the  report.  Some  of  these  reports  are  critical  for  the 
current  and  future  operation  of  the  battle  ship  and  must  be 
complete  and  accurate.  For  example,  the  tables  reflecting 
the  future  needs  in  lower  level  personnel  must  be  maintained 
and  available  upon  request. 

B.  PROPOSED  IMPROVEMENTS  OVER  CURRENT  SYSTEM 

All  the  previously  described  tasks  are  currently 
provided  manually.  Therefore,  the  following  improvements 
can  be  achieved  by  computer  automation: 

a)  The  processing  speed  will  be  much  higher. 

b)  Improved  accuracy  in  data  retrieval  can  be  achieved  if 
the  criteria  for  the  job  assignments  is  carefully 
described  and  taken  into  account  in  the  application 
programs.  Also  in  the  case  of  reports  and  listings 
the  possibility  of  information  omission  is  eliminated. 

c)  The  retrieval  and  listing  of  information  will  be  much 
faster,  easier  and  real  time. 


d)  In  a  military  environment,  the  cost  of  the  manually 
provided  functions  cannot  be  easily  estimated. 
Therefore,  cost  reduction  as  a  requirement  cannot  be 
considered  in  the  improvements  of  the  existing  system, 
except  in  terms  of  time.  On  the  other  hand,  the 
monetary  cost  of  installing  a  computer  system  is 
considered  not  significant  since  the  proposed  system 
will  be  designed  so  as  to  be  supported  by  a 
microcomputer . 

e)  The  level  of  security  afforded  the  personnel  informa¬ 
tion  can  be  improved  according  to  organizational 
requirements  (in  this  case  according  to  the  security 
rules  on  a  battle  ship) . 

The  previously  mentioned  possible  improvements  lead  to 
the  decision  that  this  project  is  reasonable  to  start.  It 
satisfies  the  requirements  for  project  initiation  as  stated 
in  the  beginning  of  this  chapter. 


C.  SYSTEM  REQUIREMENTS 

The  system  must  be  able  to  satisfy  the  following 
requirements  so  that  the  previously  defined  improvements  can 
be  achieved: 

a)  It  must  be  able  to  store  any  information  about 
personnel  on  a  battle  ship  that  is  currently  stored  on 
papers.  Actual  storage  may  be  different  from  the 
traditional  organization  in  a  files  point  of  view,  but 
some  modifications  in  storage  are  necessary  to  avoid 
data  duplication. 

b)  It  must  be  able  to  provide  any  stored  information  or 
any  combination  of  stored  information  upon  request. 

c)  It  must  include  sufficiently  defined  criteria  so  as  to 
provide  solutions  for  the  job  assignments  as  accurate¬ 
ly,  effectively,  and  equitably  as  possible. 

d)  It  must  be  easy  to  use,  or  useable  by  personnel 
without  special  computer  knowledge  or  skills. 

e)  It  must  be  supportable  on  a  microcomputer  system. 
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D.  SPECIFICATIONS  OF  THE  BATTLE  SHIP  THAT  WILL  BE  USED  AS 
A  MODEL 

1.  Personnel 


Sixty-three  men  will  be  considered  as  ship's  company 
on  a  battle  ship.  These  men  are  divided  into  the  following 
categories  by  rank: 

a)  The  Commanding  Officer 

» 

b)  Six  more  Officers.  Four  of  them  are  Deck  Officers  and 
two  Engineers.  Each  one  must  be  able  to  manage  one  or 
more  subdepartments  within  his  specialization. 

c)  Twenty-one  Petty  Officers.  Four  of  them  are  Master 
Chief  Petty  Officers,  three  Senior  Chief  Petty 
Officers,  three  Chief  Petty  Officers,  three  Petty 
Officers  1st  Class,  three  Petty  Officers  2nd  Class, 

-  and  five  Petty  Officers  3rd  Class.  All  Petty  Officers 
are  assigned  to  subdepartments  according  to  his 
individual  specializations. 

d)  Thirty-five  Seamen.  These  men  are  assigned  to 
subdepartments  according  to  their  specialization. 

2 .  Ship  Characteristics 

From  the  armament  point  of  view,  the  battle  ship 
that  will  be  used  as  a  model  for  this  application  is 
equipped  with  the  following  weapons  as  shown  in  Figure  8. 

a)  Three  3"  Automatic  Guns.  These  guns  are  controlled  by 
the  central  armament  control  console  or  locally  by 
individual  control  consoles.  They  are  referred  to  as 
GUN  31,  GUN  32,  and  GUN  33. 

b)  Two  40mm  Automatic  Anti-Air  Guns.  These  are  also 
controlled  by  the  central  armament  control  console  or 
locally  by  a  user,  and  will  be  referred  to  as  GUN  41 
and  GUN  42. 

c)  Two  Groups  of  Surface  to  Air  Missiles.  These  will  be 
referred  to  as  A/A  MISSILES  1  and  A/A  MISSILES  2,  and 
are  controlled  by  their  own  firing  and  control 
console. 
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d)  Two  Groups  of  Surface  to  Surface  Missiles.  These  will 
be  referred  to  as  SS  MISSILES  1  and  SS  MISSILES  2,  and 
are  also  controlled  by  their  own  individual  consoles. 

e)  Two  Surface  to  Surface  Torpedoes.  These  will  be 
considered  as  controlled  from  the  central  armament 
control  console  and  will  be  referred  to  as  TORPEDOl 
and  TORPEDO 2. 

f)  One  Long  Range  Radar.  This  will  be  used  for  air 
target  detection  and  will  be  referred  to  as  the  AIR 
RADAR . 

g)  One  Medium  Range  Radar.  This  will  be  used  for  surface 
target  detection  and  will  be  referred  to  as  the 
SURFACE  RADAR. 

h)  Another  Medium  Range  Radar.  This  will  be  used  for 
navigation  purposes  and  will  be  referred  to  as  the 
NAVIGATION  RADAR. 

i)  .  One  Tracking  Radar.  It  will  be  considered  as 

cooperating  with  the  central  armament  control  console. 

j)  Additional  Equipment.  These  additional  equipments 
include  anything  remaining  that  is  required  to  fulfill 
the  mission  of  the  battle  ship.  For  example,  the 
communication  equipment,  the  ESM  (Electronic  Support 
Measure)  equipment,  the  ECM  (Electronic  Counter 
Measure)  equipment,  etc. 

From  the  machine  or  power  plant's  point  of  view, 
the  model  is  equipped  with  the  following: 

a)  Two  Main  Engines.  Each  one  is  installed  in  one  of  two 
engine  rooms.  The  operating  indicators  and  their 
controls  are  installed  in  the  engine  control  room. 
These  engines  will  be  referred  to  as  MAIN  ENGINE  1  and 
MAIN  ENGINE  2. 

b)  Three  Electric  Generators.  These  three  generators 
provide  the  required  electric  power  for  the  operation 
of  all  electrical  equipment  on  the  ship.  They  are 
referred  to  as  ELECTRIC  GENERATOR  1,  2,  and  3. 

c)  Two  Electric  Power  Distribution  Tables.  These  are 
used  to  distribute  the  electric  power  to  the 
appropriate  destinations  and  they  will  be  referred  to 
as  ELECTRIC  POWER  DISTRIBUTION  TABLE  1  and  ELECTRIC 
POWER  DISTRIBUTION  TABLE  2. 
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III.  DESIGN 


According  to  the  traditional  definition  of  the  design, 
when  it  is  referred  to  the  software  development,  it  is  the 
translation  of  requirements  into  ways  of  meeting  them. 
Systems  design  proceeds  through  the  two  phases:  the  logical 
design  phase  and  the  physical  design  phase  [Ref.  3]. 

The  systems  logical  design  consists  of  the  description 
of  its  features,  that  is  the  description  of  the  outputs,  the 
inputs,  the  files,  and  the  procedures,  all  in  the  manner' 
that- meets  project  requirements. 

The  systems  physical  design  is  the  set  of  activities 
following  the  logical  design.  It  consists  of  a  model  for 
the  production  of  a  working  system,  that  is  the  production 
of  a  system  that  accepts  input  from  the  users,  processes 
data,  and  produces  the  appropriate  reports. 

In  this  chapter  the  logical  design  of  the  system  under 
development,  the  features  of  the  database  management  system 
that  will  be  used,  and  the  hardware  requirements  will  be 
represented.  The  physical  design  of  the  system  will  be 
represented  in  the  following  chapter  as  "Implementation"  of 
the  system. 

A.  LOGICAL  DESIGN 

According  to  the  requirements  of  the  system,  as 
previously  stated  at  the  end  of  the  previous  chapter,  it 
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must  be  usable  by  personnel  with  very  little  knowledge  about 
computers . 

Therefore,  the  architecture  of  the  system  should  be 
based  on  a  sequence  of  menus  and  submenus  which  lead  the 
user  to  the  appropriate  action.  Figure  9  shows  the 
architecture  of  such  a  menu  driven  system. 

1 .  Classes  of  System  Operations 

The  system  will  provide  the  following  four  classes 
of  operations. 

a.  Modifications  of  the  Existing  Data 

The  user  of  the  system  should  be  able  to  insert 
a  new  record,  to  delete  an  existing  one  and  to  modify  any 
record  in  the  supporting  system  files. 


SUBMENU) 

0 . 

1  . 

N . 

MAIN  MENU 

0 . 

I  . 


SU8MENU2 


0 

1 

N 


SjJBHENUN 

0 . 

1 . 

N . 


Figure  9.  The  Architecture  of  a  "Menu  Driven"  System 
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b.  Crew  Allocation 


The  system  should  be  able  to  provide  different 
types  of  crew  allocation.  For  example,  it  must  allocate  the 
crew  into  two  or  three  shifts,  and  to  assign  members  of  the 
crew  to  the  appropriate  positions  during  special  alert 
conditions.  The  type  of  crew  allocation  should  be  user 
selected  from  the  appropriate  submenu.  The  criteria  used 
for  each  type  of  crew  allocation  will  be  described  with  the 
corresponding  application  program. 

c.  Production  of  Reports 

A  number  of  application  programs  will  support 
the  function  of  retrieving  necessary  information  on 
personnel  from  the  database  and  producing  the  appropriate 
lists  and  reports. 

d.  Assistance  Operations 

Although  the  above  operations  can  satisfy  the 
requests  of  the  system,  an  additional  function  related  to 
the  tracking  of  modifications  that  have  been  done  to  the 
supporting  system  files  is  necessary.  This  audit  trail  will 
be  contained  in  a  file  "Spy”  in  which  any  modifications  of 
the  supported  files  will  be  recorded  with  the  time,  the 
date,  and  the  user's  name.  This  file  should  not  be  accessi¬ 
ble  through  the  main  menu  or  any  submenu  for  security 
reasons.  Also  system  access  security  should  be  provided  at 
system  start-up  through  a  password  control  system. 
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A  "USER"  file  will  contain  user(s)  characteris¬ 
tics  and  corresponding  password(s).  A  second  file  "STATIST" 
will  accumulate  the  information  on  members  of  the  crew  that 
P  are  deleted  for  any  reason.  Neither  file  should  be 

accessible  through  the  menu  system. 

2.  The  Output  Reports 

^  Before  describing  the  supporting  system  files,  it  is 

desirable  to  describe  the  required  outputs.  This  can  help 
to  better  understand  and  organize  data  into  the  supporting 
system  files,  which  in  turn  supports  avoidance  of  data 
duplication . 

The  required  system  output  reports  in  the  form  of 
tables  and  lists  are  the  following: 

a)  Crew  allocation  into  2  shifts 

b)  Crew  allocation  into  3  shifts 

c)  Crew  allocation  for  surface  alert 

d)  Crew  allocation  for  air  alert 

e)  Crew  allocation  for  general  alert 

f)  List  of  men  available  to  participate  in  some  special 
purpose  groups  during  one  of  the  above  alerts 

g)  List  of  personnel  that  serve  in  the  battle  ship  in 
some  user  defined  order 

h)  List  of  the  personnel  with  those  current  service  time 
in  the  ship 

i)  List  of  the  personnel  with  their  home  addresses  and 
phone  numbers 

j)  List  of  the  personnel  allocated  into  departments 

k)  List  of  the  personnel  allocated  into  subdepartments 
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3.  Required  Input  Information 

In  order  to  provide  the  previously  described  output 
reports,  the  following  information  must  be  input  to  the 
system. 

a.  Personnel  Information 

Each  member  of  the  crew  in  the  battle  ship  has, 
in  addition  to  his  name,  a  serial  number,  a  rank,  a  job 
specialization,  a  home  address,  and  a  home  phone  number. 

Also  he  has  a  specific  date  in  which  he  has  been  received  on 
the  battle  ship  and  a  date  that  he  will  finish  his  service 
obligations  (in  case  he  belongs  to  lower  level  personnel)  or 
he  will  depart  from  the  ship  for  another  tour  of  duty.  In 
the  latter  case  the  date  of  departure  is  not  always  known  in 
advance,  but  is  announced  a  few  months  before  the  departure. 

The  above  information  about  the  personnel  is 
enough  for  the  construction  of  the  periodic  reports 
previously  described.  However,  for  job  assignments 
additional  information  is  required. 

b.  Job  Position  Information 

In  order  for  the  assignment  of  job  positions  to 
be  successful  in  the  various  cases,  first  the  description  of 
the  job  positions  must  be  included  in  the  input  information. 
Additionally,  the  specialization  and  rank  of  the  required 
crew  member  must  be  stated.  Finally  the  hierarchical 
structuring  of  the  departments  and  subdepartments  along  with 
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the  specializations  of  the  personnel  that  each  one  requires 
must  be  stated. 

4 .  Description  of  the  Supporting  Application  Files 
The  following  files  should  be  used  in  order  to 
include  all  required  input  information, 
a.  Personnel  File 


Structure  for  file:  CREWMEMB 


FIELD 

NAME 

TYPE 

WIDTH 

01 

SERNO 

C 

5 

02 

NAME 

C 

18 

03 

RANK 

C 

4 

04 

SPEC 

C 

4 

05 

INDATE 

DATE 

8 

06 

OUTDATE 

DATE 

8 

07 

ADDRESS 

C 

20 

08 

PHONE 

C 

8 

Ranks 

File 

Structure  for 

file:  RANKS 

field 

NAME 

TYPE 

WIDTH 

01 

RANKCODE 

C 

4 

02 

RANKNAME 

C 

15 
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Specialization  File 


Structure  for  file: 

SPECI ALT 

FIELD 

NAME 

TYPE 

WIDTH 

01 

SPECODE 

C 

4 

02 

SPECNAME 

C 

15 

03 

SUBDPCODE 

C 

4 

Sudepar tment  File 

Structure  for  file: 

SUBDEPTN 

FIELD 

NAME 

TYPE 

WIDTH 

01 

SUBDPCODE 

C 

4 

02 

SUBDBNAME 

c 

15 

03 

OEPCODE 

c 

4 

.  Department  File 

Structure  for  file: 

DEPARTM 

FIELD 

NAME 

TYPE 

WIDTH 

01 

DEPCODE 

C 

4 

02 

DEPNAME 

c 

10 

f.  Alert  File 

The  alert  file  contains  the  positions  that 
should  be  filled  during  a  general  alert  with  the 
requirements  for  rank  and  specialization  of  the  individual 
who  will  fill  each  position. 
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Structure  for 

file:  ALERT 

FIELD 

NAME 

TYPE 

WIDTH 

01 

POSCODE 

C 

4 

02 

DESCR 

C 

15 

03 

REQSPEC 

c 

4 

04 

REQRANK 

c 

4 

File  Containing  the  Crew  Member's 
Leave 

Request 

Structure  for 

file:  REQLEAVE 

FIELD 

NAME 

TYPE 

WIDTH 

01 

SERNO 

C 

5 

02 

REMLEAVE1 

N 

2 

03 

REQUEST  1 

DATE 

8 

04 

REQ1DUR 

DATE 

8 

05 

REQUEST2 

DATE 

8 

06 

REQ2DUR 

DATE 

8 

File  Containing  the  Users'  Name  and 
Corresponding  Passwords 

Structure  of 

files:  USERS 

FIELD 

NAME 

TYPE 

WIDTH 

01 

PASSWORD 

C 

6 

02 

USERNAME 

c 

18 
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i.  Spy  File 


Structure  for 

file:  SPY 

FIELD 

NAME 

TYPE 

WIDTH 

1 

01 

DATE 

DATE 

8 

02 

TIME 

C 

5 

03 

USERNAME 

C 

18 

k 

r 

04 

JOBDESCR 

C 

12 

05 

PROGNAME 

C 

10 

j.  File  that  Contains  the  Information  on  Members 
of  the  Crew  that  Have  Been  Deleted  from  the 
Ship's  Organization  for  Any  Reason 


Structure  for  file:  STATIST 


FIELD 

NAME 

TYPE 

WIDTH 

01 

SERNO 

C 

5 

02 

NAME 

C 

18 

03 

RANK 

C 

4 

04 

SPEC 

C 

4 

05 

INDATE 

DATE 

8 

06 

OUTDATE 

DATE 

8 

5 .  Description  of  the  Codes  Used  in  the  Supporting 
Application  Files 

a.  Codes  for  Ranks 


CODE 

FF10 

FF20 


NAME 

COMMANDER 
LT.  COMMANDER 
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i 

i 


FF  30 


LIEUTENANT 


FF40 

LIEUTENANT  JG 

FF50 

ENSIGN 

PF10 

MASTER  CHIEF  PO 

PF20 

SENIOR  CHIEF  PO 

PF30 

CHIEF  PO 

PF40 

PO  1ST  CLASS 

PF50 

PO  2ND  CLASS 

PF60 

PO  3RD  CLASS 

SM10 

SEAMAN 

for  Specialization 

CODE 

NAME 

D001 

DECK 

0002 

WEAPON  USER 

DOO  3 

WEAPON  CONTROL 

D00  4 

COMMUNICATION 

D005 

NAVIGATION 

DOO  6 

RADAR  USER 

D007 

SANITARY 

DOO  8 

SUPPLY 

E001 

ENGINEER 

E002 

ELECTRICIAN 

EOO  3 

ELECTRONIC 
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c.  Codes  for  Departments 
CODE 


NAME 


D000 

DECK  DPTM. 

MOO  0 

MACHINE  OP. 

for  Subdepartments 

CODE 

NAME 

D100 

ADMINISTRATION 

D200 

WEAPONS 

D  300 

COMBAT  INFO 

D40  0 

COMMUNICATIONS 

D500 

NAVIGATION 

M10  0 

MAIN  ENGINES 

M200 

DAMAGE  CONTROL 

M30  0 

ELECTRIC  INSTAL 

M400 

ELECTRON.  EQUIP 

M50  0 

SPARE  PARTS 

for  Alert  Positions  (POSCODE) 

CODE 

DESCRIPTION 

0001 

COMMAND  OFFICER 

0002 

NAVIGATOR 

0003 

NAVIG.  RADAR 

0004 

HELMSMAN 

0005 

HF  BRIDGE  COMM. 

0006 

UHF  BRIDGE  COMM 

0007 

LEFT  OBSERVER 
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0008 


RIGHT  OBSERVER 


0009 

CIC  SUPERVISOR 

0010 

AIR  RADAR 

0011 

SURFACE  RADAR 

0012 

TRACK  RADAR 

0013 

CIC  COMMUNICAT. 

0014  . 

E.S.M. 

0015 

E.C.M. 

0016 

CENTR  WEAP  CONT 

0017 

GUN  31  CONSOLE 

0018 

31  AMMO  SUPPL1 

0019 

31  AMMO  SUPPL2 

0020 

GUN  32  CONSOLE 

0021 

32  AMMO  SUPP1 

0022 

32  AMMO  SUPPL2 

0023 

GUN  33  CONSOLE 

0024 

33  AMMO  SUPPL1 

0025 

33  AMMO  SUPPL2 

0026 

GUN  41  CONTROL 

0027 

GUN  42  CONTROL 

0028 

TORPEDO  TUBE  1 

0029 

TORPEDO  TUBE  2 

00  30 

A/A  MISS  CONTR 

0031 

A/A  MISS  TELEPH 

0032 

A/A  MISSILES  1 
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0033 

A/A  MISSILES  2 

0034 

SS  MISS  CONTR 

0035 

SS  MISS  TELEPH 

0036 

SS  MISSILES  1 

00  37 

SS  MISSILES  2 

0038 

RADIO  ROOM  SUP 

0039 

TELETYPE  1 

0040 

TELETYPE  2 

0041 

HF  COMMUNICAT 

0042 

SURG  ROOM  SUPER 

0043 

SURG  ROOM  1 

0044 

SURG  ROOM  2 

0045 

SURG  ROOM  3 

0046 

ENG  CONTR  ROOM 

0047 

MAIN  ENG1  ASS  1 

0048 

MAIN  ENG1  ASS2 

0049 

MAIN  ENG 2  ASS1 

0050 

MAIN  ENG2  ASS2 

0051 

ELECTR  GENERAT 1 

0052 

ELECTR  GENERAT2 

0053 

ELECTR  GENERAT 3 

0054 

DISTR  TABLE  1 

0055 

DISTR  TABLE  2 

0056 

DAMAGE  CONTROL  1 

0057 

DAMAGE  CONTROL  2 
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0058 

DAMAGE 

CONTROL 

3 

0059 

DAMAGE 

CONTROL 

4 

0060 

DAMAGE 

CONTROL 

5 

0061 

DAMAGE 

CONTROL 

6 

0062 

DAMAGE 

CONTROL 

7 

0063 

DAMAGE 

CONTROL 

8 

B.  SOFTWARE  REQUIREMENTS  FOR  SYSTEM  IMPLEMENTATION 

The  dBASE  III,  which  will  be  used  for  the  implementation 
of  the  personnel  management  system  under  discussion,  is  a 
relational  DBMS  (database  management  system)  for  micro¬ 
computers. 

It  contains  its  own  extremely  powerful  programming 
language  which  permits  the  user  to  easily  create  his  own 
application  programs  regardless  of  complexity. 

The  most  important  features  as  well  as  the  limitations 
of  dBASE  III,  as  described  by  E.  Jones  [Ref.  4]  and  A. 
Simpson  [Ref.  5]  are  described  below. 

1 .  Features  of  dBASE  III 

a)  Program/data  dependence.  Changes  in  file  structure  do 
not  affect  the  application  programs. 

b)  Data  can  be  easily  updated. 

c)  Date  and  Memo  daca  types  are  provided.  In  addition  to 
the  common  data  types,  such  as  characters,  numerics, 
and  logicals  that  are  provided  by  other  database 
management  systems,  dBASE  III  provides  the  "Date"  data 
type  which  is  a  very  powerful  tool  for  dates 
management,  and  the  "Memo"  data  type  for  managing 
texts. 
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d)  Information  saving.  dBASE  III  can  save  information  as 
disk  files  in  nine  specialized  formats  each  serving  a 
specific  dBASE  III  processing  need. 

e)  Sorting  and  indexing  capabilities. 

f)  Creation  and  printing  of  formatted  reports. 

g)  Date  arithmetic. 

h)  Built-in  high  level  DML  language. 

i)  Interface  capabilities.  The  dBASE  III  allows 
interfacing  with  other  software  systems,  i.e., 
SuperCalc,  the  Symphony,  WordStar,  etc. 

2.  Limitations  of  dBASE  III 


a.  Number  of  Records  in  Each  File 

Each  database  file  can  have  up  to  1  billion 
records  maximum,  and  the  maximum  size  of  each  file  is  2 
billion  bytes. 

b.  Number  of  Fields  in  Each  Record 

Each  record  can  have  up  to  128  fields.  The 
width  of  these  fields  can  be  no  longer  than  4,000 
characters . 


c.  Number  of  Database  Files  Open  at  the  Same  Time 
Ten  database  files  can  be  opened  at  the  same 

time,  or  fifteen  files  of  all  types.  Seven  index  and  one 
format  file  can  be  opened  for  each  active  database  file. 

d.  File  Names  and  Field  Name  Lengths 

File  names  can  be  up  to  8  characters  long,  while 
field  names  can  be  up  to  10  characters  long. 
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e.  Active  Memory  Variables 

The  maximum  number  of  active  memory  variables  is 
256.  The  total  number  of  bytes  for  memory  variables  is 
6,000. 

All  of  the  above  values  may  be  limited  by  the 
computer  hardware  configuration. 

C.  HARDWARE  REQUIREMENTS  FOR  SYSTEM  IMPLEMENTATION 

The  system  can  operate  on  a  16-bit  microcomputer  that 
uses  MS  DOS  or  PC  DOS  version  2.0  or  newer,  for  example  on 
an  IBM  PC,  on  an  IBM  PC/XT  or  any  other  16-bit  microcomputer 
fully  compatible  with  one  of  the  above  mentioned 
microcomputers . 

256K  of  RAM  memory  is  the  minimum  requirement  of  the 
supporting  database  package.  Although  one  disk  drive  can 
possibly  be  used,  two  disk  drives  is  strongly  recommended. 
The  best  configuration  is  one  disk  drive  and  one  hard  disk. 

A  10M  hard  disk  is  recommended  because  it  is  the  most 
common,  inexpensive,  and  reasonable  configuration  of  a 
microcomputer.  A  hard  disk  is  not  required  because  of 
storage  requirements,  since  all  files  and  the  application 
programs  can  be  stored  on  a  floppy-disk  based  system. 
However,  it  does  greatly  improve  the  execution  time  of  the 
programs  used  in  this  application. 

Any  80  column  printer  able  to  interface  with  the  above 
mentioned  microcomputers  can  be  used. 


IV.  IMPLEMENTATION 


The  system's  "implementation"  or  "Physical  Design"  is 
the  set  of  activities  following  the  "Logical  Design",  and 
it  consists  of  the  production  of  a  working  system,  that  is 
the  production  of  a  system  that  accepts  input  from  the 
users,  processes  data  and  produces  the  appropriate  reports 
[Ref.  31. 

One  very  important  job  during  the  development  of  a 
software  product  is  the  construction  of  the  user's  manual. 
Without  it,  only  the  creator  of  the  system  can  use  it. 

User's  manuals  differ  in  size  and  complexity  according 
to  the  nature  of  the  developed  system.  Therefore,  user's 
manuals  can  be  as  simple  as  a  few  pages  of  notes  about  the 
use  of  the  system,  or  as  detailed  as  volumes  of  descriptions 
on  the  functions  of  the  system. 

The  system  under  development  is  a  "Menu  driven"  system, 
in  which  the  user  is  led  to  the  appropriate  operation 
through  the  main  menu,  the  submenus  and  his  answers  to  the 
questions  asked  by  the  system.  But,  to  better  support  user 
understanding  about  what  is  taking  place  during  the  various 
actions  of  the  system,  a  detailed  description  of  the 
application  programs  is  given  in  this  chapter.  This 
description  is  based  on  operational  details  rather  than  on 
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detailed  structure  of  the  application  programs.  It 
substitutes  the  user's  manual. 

A.  RUNNING  THE  SYSTEM 

The  user  of  the  system  has  to  call  the  "MASTER  PROGRAM" 
by  its  name  (00  masterpr} .  The  first  thing  that  this 
program  does  is  to  ask  the  user  to  insert  his  password. 
There  is  a  file  in  the  system  named  "USERS"  that  contains 
the  user(s)  name(s)  with  corresponding  password (s). 
Therefore,  more  than  one  user  can  use  the  system  if  desired 
This  file  is  not  accessible  to  the  user  through  the  main 
menu,  or  through  the  different  submenus. 

If  the  user  of  the  system  inserts  an  incorrect  password 
he  is  exited  to  the  operating  system  after  receiving  a 
message  that  he  is  not  an  authorized  user.  If  the  user 
inserts  the  correct  password,  then  the  "MASTERPR"  calls  the 
program  "MAINMENU"  which  presents  to  the  user  his  choices. 
The  icon  of  the  main  menu  is  shown  in  Figure  10. 


MAIN  MENU 


EXIT  TO  OPERATING  SYSTEM . 0 

UDATE  SUPPORTING  FILES . I 

CREW  ALLOCATION . 2 

LISTS  AND  REPORTS . 3 

EXIT  TO  dBASE  III . 4 


Figure  10.  The  Icon  of  the  Main  Menu 


If  the  user's  choice  is  "0”  then  he  is  exited  to  the 
operating  system,  and  if  his  choice  is  "4”  he  is  exited  to 
dBASE  III.  The  last  option  is  for  programmers  when  any 
modification  must  be  done  in  any  of  the  application 
programs,  and  for  the  manager  of  the  system  when  he  wants  to 
access  information  created  by  the  system  but  unaccessible 
through  the  main  menu  and  submenus.  In  all  the  other  cases 
(choice  1,  2,  3)  the  appropriate  program  is  called,  which  in 
turn  calls  the  corresponding  submenu  for  further  direction 
of  the  user  through  the  different  operations  tnat  the  system 
can  provide  to  him. 

A  small  routine  named  "DELAY"  is  frequently  used  in  many 
of  the  application  programs  to  produce  a  small  delay  of  the 
messages  on  the  screen.  Without  this  delay  the  messages 
would  not  be  viewable  by  the  user. 

B.  UPDATING  THE  SUPPORTING  SYSTEM  FILES 

When  the  user's  choice  from  the  main  menu  is  "1"  then 
the  "MASTERPR"  calls  the  program  "UPDATEDB" .  This  program 
controls  the  different  options  available  to  the  user  for 
updating  of  the  supporting  system  files. 

The  menu  "SUBMENU  1",  is  represented  to  the  user,  as  it 
appears  in  Figure  11. 

As  presented  in  this  submenu,  the  user  has  the  following 
options : 
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a)  To  exit  into  main  menu  by  selecting  "0". 

b)  To  insert  new  records  in  "CREWMEMB"  file  by  selecting 

"1". 

c)  To  modify  records  in  "CREWMEMB"  file  by  selecting  "2". 

d)  To  modify  records  in  "REQLEAVE"  file  by  selecting  "3". 

e)  To  delete  records  from  "CREWMEMB"  file  by  selecting 
"4". 


SUBMENU  1 


EXIT  TO  MAIN  MENU . 0 

INSERT  RECORDS  INTO  CREWMEMB .  1 

MODIFY  RECORDS  INTO  CREWMEMB . 2 

MODIFY  RECORDS  INTO  REQLEAVE .  3 

DELETE  RECORDS  FROM  CREWMEMB . 4 


Figure  11.  The  Icon  of  the  Submenu  1 

1 .  Inserting  Records  into  "CREWMEMB"  File 

When  the  user  selects  the  option  of  inserting  new 
files  into  "CREWMEMB",  the  "INSCREW"  program  is  called. 

This  program  calls  at  the  program  "SCREEN  1”  which  presents 
to  the  user's  screen  a  frame  in  which  all  interactive 
procedures  take  place. 

The  user  is  asked  to  insert  the  serial  number  of  the 
new  crew  member  to  be  inserted.  If  this  serial  number  does 
not  exist  in  the  file  "CREWMEMB",  i.e.,  the  new  member  does 
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not  already  exist,  the  system  asks  the  user  if  he  wants  to 
see  the  codes  for  ranks  and  specialties. 

If  the  user  answers  affirmatively  then  the  "INSCREW" 
program  calls  the  program  "CODESCR"  which  generates  a  new 
frame  on  the  user's  screen  which  contains  the  codes  for 
ranks  and  specialties. 

The  "INSCREW"  program  presents  to  the  user  for  entry 
all  the  appropriate  fields  of  a  new  record,  with  the 
exception  of  the  field  "outdate."  The  disenrollment  date 
for  a  crew  member  is  in  general  not  known  at  the  time  he 
reports  to  the  ship. 

The  program  inserts  the  information  into  the 
"CREWMEMB"  file,  and  prompts  the  user  to  update  the  file 
containing  the  requests  for  leave,  that  is  the  "REQLEAVE" 
file.  The  fields  of  the  records  of  this  file  are  presented 
to  the  user  for  input.  The  user  may  or  may  not  insert 
information  in  this  file  at  this  time,  however,  a  leave 
request  record  corresponding  to  the  new  member  is  created  at 
this  time. 

The  system  continues  with  multiple  entries  depending 
on  the  user's  answer  to  the  system's  question  "MORE 
INSERTIONS?".  When  the  user  has  no  other  insertions  to 
make,  and  he  answers  "No"  to  the  question  "MORE  INSERTIONS", 
he  is  exited  to  submenu  1,  for  selection  of  another  option 
or  return  to  the  system  through  the  main  menu. 
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At  the  end  of  the  execution(s)  of  program  "INSCREW" 
if  any  insertions  have  been  made  an  entry  in  the  "SPY"  file 
is  automat ical 1 ly  made  with  the  user  name,  date,  the  time 
and  the  program  name. 

2 .  Modifying  Records  in  "CREWMEMB"  File 

When  the  user  selects  the  option  to  modify  one  or 
more  records  in  the  "CREWMEMB"  file,  the  program  "SCREEN  1" 
is  called  to  install  the  interactive  frame.  The  appropriate 
record  is  located  by  insertion  of  the  serial  number  of  the 
crew  member  whose  record  must  be  modified,  and  the 
modifiable  fields  are  presented  to  the  user.  The  enrollment 
date  of  the  crew  member  and  his  specialty  are  not  presented 
because  these  fields  cannot  be  changed.  If  the  user  wants 
help,  he  can  see  the  codes  for  ranks  by  answering  "Yes"  to 
the  corresponding  question,  which  causes  the  program 
"RANKSCR"  to  be  called  which  generates  a  frame  containing 
the  appropriate  information. 

The  modified  record  is  presented  to  the  user  a  final 
time  before  he  is  asked  for  "MORE  MODIFICATIONS",  while  the 
appropriate  information  is  inserted  into  the  "SPY"  file  each 
time  a  modification  has  taken  place. 

3.  Modifying  Records  in  "REQLEAVE "  File 

When  the  user  selects  the  option  of  modifying 
records  in  the  "REQLEAVE"  file,  the  appropriate  record  is 
located  by  insertion  of  the  serial  number  of  the  crew  member 
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whose  record  must  be  modified,  the  corresponding  fields  from 
a  record  contained  in  the  "REQLEAVE"  file  which  are  modifi¬ 
able  are  presented  to  the  user  and  an  entry  in  the  "SPY" 
file  is  made  whenever  any  modification  is  made. 

4 .  Deleting  Records  from  "CREWMEMB"  File 

Finally,  when  the  user  selects  the  option  of 
deleting  a  record  from  the  "CREWMEMB"  file,  the  selection 
sequence  of  actions  is  the  same.  When  a  record  from  the 
"CREWMEMB"  file  is  deleted,  the  record  for  the  crew  member 
in  the  "REQLEAVE"  file  is  deleted  also.  Information  about 
the  deleted  crew  member  is  inserted  into  the  "STATIST"  file 
for  statistic  purposes,  and  an  entry  in  the  "SPY"  file  is 
made . 

Other  support  system  files  can  be  updated,  but  these 
options  are  not  available  to  the  normal  user  of  the  system 
for  reasons  of  information  integrity. 

C.  PERFORMING  THE  CREW  ALLOCATION 

When  the  user’s  choice  from  the  main  menu  is  "2"  the 
"MASTERPR"  calls  the  program  "ALLOCATE".  This  program 
controls  the  different  options  available  to  the  user  for 
performing  crew  allocation. 

The  program  "ALLOCATE"  calls  the  program  "SUBMENU 2" 
which  generates  and  represents  to  the  user  submenu  2,  as 
shown  in  Figure  12. 

According  to  this  submenu,  the  user  of  the  system  has 
the  following  options: 
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a)  To  exit  the  main  menu  by  selecting  "0". 

b)  To  assign  the  appropriate  persons  into  the  appropriate 
position  during  a  general  alert  by  selecting  "1". 

c)  To  assign  the  appropriate  person  into  the  appropriate 
position  during  a  surface  alert  by  selecting  "2". 

d)  To  assign  the  appropriate  person  into  the  appropriate 
position  during  an  air  alert  by  selecting  "3". 

e)  To  allocate  the  crew  into  two  shifts  by  selecting  "4". 

f)  To  allocate  the  crew  into  three  shifts  by  selecting 
"5". 


SUBMENU  2 


EXIT  TO  MAIN  MENU . 0 

CREW  ALLOCATION  FOR  GENERAL  ALERT .  1 

CREW  ALLOCATION  FOR  SURFACE  ALERT . 2 

CREW  ALLOCATION  FOR  AIR  ALERT . 3 

CREW  ALLOCATION  INTO  TWO  SHIFTS . 4 

CREW  ALLOCATION  INTO  THREE  SHIFTS .  5 


Figure  12.  The  Icon  of  the  Submenu  2 

1.  Crew  Allocation  for  "General"  Alert 

When  the  user  selects  the  option  of  allocating  the 
crew  into  general  alert  positions,  the  "ALLOCATE"  program 
calls  the  "GENALERT"  program.  This  program  calls  the 
program  "SCREEN2"  which  simply  generates  a  frame  on  the 
user's  screen  with  program  progress  reports. 
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The  program  "GENALERT"  creates  two  files  named 
"TMPCREW"  and  TMPALERT"  which  are  deleted  at  the  end  of  the 
execution  of  the  program  "GENALERT".  In  the  first  file  the 
"CREWMEMB"  file  is  copied  and  in  the  second  file  the  "ALERT" 
file  is  copied. 

Also  the  program  "GENALERT"  erases  all  records 
contained  in  the  file  "GALERT" .  In  this  file  the  records 
resulting  from  a  previous  execution  of  the  program 
"GENALERT"  are  stored,  and  they  are  deleted  for  storage  of 
the  records  from  the  new  execution  of  program  "GENALERT". 

The  file  "TMPALERT"  is  used  as  a  reference,  and 
sequentially  contains  for  each  record  of  this  file, 
information  about  the  position  that  must  be  manned,  and  the 
required  rank  (reqrank)  and  required  specialty  (reqspec). 
"TMPALERT"  file  positions  are.  matched  with  members  contained 
in  the  "TMPALERT"  file. 

If  a  person  is  found  (having  the  required  rank  and 
specialty  is  located)  his  rank,  name,  and  specialty  are 
inserted  in  the  file  "GALERT"  along  with  the  position  code 
and  the  position  description.  Otherwise  the  position 
remains  unmanned,  and  the  next  position  is  examined. 

If,  after  all  the  positions  contained  in  the  file 
"TMPALERT"  have  been  examined  and  some  remain  unmanned,  the 
user  is  informed  that  some  positions  remain  unmanned  due  to 
a  mismatch  of  the  requirements  and  t  e  personnel  availa¬ 
bility.  He  is  asked  if  he  wants  to  proceed  ignoring  the 
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factor  rank.  If  the  user  agrees  only  the  specialty  factor 
is  used  for  matching  and,  of  course,  only  the  unmanned 
positions  and  the  remaining  personnel  are  examined. 

If,  at  the  end  of  this  iteration,  positions  still 
remain  unmanned  and  personnel  are  available,  the  user  is 
informed  and  prompted  to  fill  the  remaining  positions 
regardless  of  the  rank  and  specialty  of  the  remaining 
personnel.  If  his  answer  is  "Yes"  this  task  is  performed  by 
assigning,  in  sequential  order,  the  remaining  personnel  to 
the  remaining  positions. 

If,  at  the  end  of  this  third  loop,  personnel  remain 
unassigned,  the  user  is  asked  if  he  wants  to  see  these 
personnel.  If  he  answers  "Yes"  then  the  available  personnel 
are  displayed  to  him.  The  same  thing  happens  whenever  the 
user  rejects  the  solution  when  the  required  rank  or 
specialty  is  to  be  ignored.  In  this  case  only  the  positions 
which  requirements  match  exactly  with  the  available 
personnel  are  filled.  The  other  positions  remain  unmanned 
and  the  available  personnel  are  presented  to  the  user  for 
manual  completion  of  the  allocation. 

At  the  end  of  the  execution  of  the  program,  an  entry 
in  the  "SPY"  file  is  made  concerning  the  execution  of  this 
program. 

2.  Crew  Allocation  for  "Surface”  or  "Air"  Alert 

The  samp  scenario  occurs  when  the  user  wants  to 
perform  a  crew  allocation  for  a  surface  or  an  air  alert.  In 
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the  first  case  the  program  "SURFALERT"  is  called  to  perform 
the  appropriate  allocation  and  the  file  "SALERT"  is  used  for 
storage  of  the  records  from  the  new  execution  of  program 
"SURFALERT" .  In  the  last  case  the  program  "AALERT"  is 
called  to  take  care  of  the  crew  allocation  for  a  surface 
alert  condition  and  the  file  "AALERT"  is  used  for  storage  of 
records  from  the  execution  of  this  program. 

The  difference  between  the  crew  allocation  for  a 
general  alert  and  the  crew  allocation  in  the  last  two  cases 
is  that  some  positions  not  required  to  be  manned  in  each  one 
of  the  last  cases  are  deleted  from  the  "TMPALERT"  file 
(which  contains  the  positions  to  be  manned  with  correspond¬ 
ing  requirements)  before  any  processing  takes  place. 

3.  Crew  Allocation  into  Two  Shifts 

When  the  user  selects  the  option  of  allocating  the 
personnel  into  two  shifts  the  program  "SHIFT 2"  is  called  by 
the  program  "ALLOCATE". 

The  program  "SHIFT2"  calls  the  program  "SCREEN 2" 
which  in  turn  installs  the  screen  frame  for  interactive  use 
during  the  execution  of  the  program  "SHIFT2" . 

The  file  "CREWMEMB"  is  copied  into  file  "TMPSHIFT" 
and  the  records  in  this  file  are  indexed  on  specialty  and 
rank.  Therefore,  during  the  division  of  the  personnel  into 
two  shifts,  each  shift  will  contain  the  same  or  almost  the 
same  number  of  persons  of  each  specialty  and  rank.  The  file 
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" TMPSHIFT"  is  erased  at  the  end  of  the  execution  of  the 
program  "SHI FT 2” . 

Two  more  files  are  used  and  both  are  cleared  of 
contents  at  the  beginning  of  the  execution  of  the  program 
"SHI FT 2" .  These  files  are  the  "SHIFT2_A"  and  the  "SHIFT2_B" 
files.  Both  contain  records  resulting  from  the  execution  of 
the  program  "SHI FT 2" . 

The  indexed  file  "TMPSHIFT"  is  used  and  the  members 
of  the  crew  are  divided  into  two  shifts,  i.e.,  the  first 
member  into  shift  A,  the  second  into  shift  B,  the  third  into 
shift  A  again,  the  fourth  into  shift  B,  and  so  on.  As 
previously  mentioned,  the  members  of  the  crew  in  the  file 
"TMPSHIFT"  are  already  sorted  according  to  specialty  and 
rank.  The  results  of  the  division,  therefore,  does  not 
differ  much  according  to  specialty  and  rank  of  the  members. 
When  the  allocation  is  finished,  options  are  given  to  the 
user  to  view  one  of  the  two  shifts  or  both  on  his  screen. 
When  he  does  not  want  to  see  the  shift  listing  anymore,  he 
selects  the  "exit"  option  which  exits  to  the  submenu  2  for 
performing  another  option  or  for  exiting  from  the  system 
through  the  main  menu. 

Again  a  corresponding  entry  in  file  "SPY"  is  made 
for  the  transaction. 

4 .  Crew  Allocation  into  Three  Shifts 

The  similar  routine  occurs  when  the  user  selects  the 
option  to  allocate  the  personnel  into  three  shifts.  In  this 
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case  the  program  "SHIFT3''  is  called  to  perform  the  required 
allocation  and  the  results  from  the  execution  of  these 
program  shifts  are  inserted  into  three  files  names 
"SHIFT3_A" ,  "SHIFT 3_B" ,  and  ”SHIFT3_C". 

A  small  routine  named  "DELAY1"  is  used  to  provide 
the  appropriate  delay  for  screen  presentations;  and  an  entry 
in  the  "SPY"  file  is  made  for  the  transaction. 

D.  PROCURING  THE  REQUIRED  LISTS 

When  the  user's  choice  from  the  main  menu  is  "3"  the 
"MASTERPR"  calls  the  program  "REPORTER".  This  program 
controls  the  different  options  available  to  the  user  for 
producing  the  required  lists. 

The  program  "REPORTER"  calls  the  program  "SUMENU3"  which 
generates  and  represents  to  the  user  the  submenu  3  as  shown 
in  Figure  13. 


SUBMENU  3 


EXIT  TO  MAIN  MENU . 0 

LIST  OF  CREW  IN  SOME  ORDER .  I 

LIST  OF  REQUESTED  INFO  OF  CREW . 2 

LIST  OF  CREW  OF  A  REQUESTED  DEPARTMENT . 3 

LIST  OF  CREW  OF  A  REQUESTED  SUBDEPARTMENT  4 

LIST  OF  CREW  ALLOCATED  INTO  2  SHIFTS . 5 

LIST  OF  CREW  ALLOCATED  INTO  3  SHIFTS . 6 

SHIP  ORGANIZATION  DURING  SURFACE  ALERT . 7 

SHIP  ORGANIZATION  DURING  AIR  ALERT . 6 

SHIP  ORGANIZATION  DURING  GENERAL  ALERT .  9 


Figure  13.  The  Icon  of  the  Submenu  3 
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According  to  this  submenu,  the  user  of  the  system  has 
the  following  options: 

a)  To  exit  into  main  menu  by  selecting  "C”. 

b)  To  produce  a  list  of  crew  sorted  in  some  user  selected 
order  by  selecting  ”1". 

c)  To  produce  a  list  of  crew  containing  only  the  desired 
information  by  selecting  "2" . 

d)  To  produce  a  list  of  specific  department  members  by 
selecting  "3". 

e)  To  produce  a  list  of  specific  subdepartment  members  by 
selecting  "4". 

f)  To  produce  a  list  of  crew  allocated  into  two  shifts  by 
selecting  "S'1. 

g)  -  To  produce  a  list  of  crew  allocated  into  three  shifts 

by  selecting  "6". 

h)  To  produce  a  list  showing  the  ship's  organization 
during  a  surface  alert  by  selecting  "7". 

i)  To  produce  a  list  showing  the  ship's  organization 
during  an  air  alert  by  selecting  "8". 

j)  To  produce  a  list  showing  the  ship's  organization 
during  a  general  alert  by  selecting  "9". 

All  of  the  above  lists  are  produceable  either  on  the 
user's  screen  or  on  his  printer,  as  selected. 

1 •  List  of  Crew  Sorted  in  Some  User  Defined  Order 

When  the  user  selects  the  option  of  producing  a  list 
of  crew  members  sorted  in  some  order,  the  "REPORTER"  program 
calls  the  "LIST  1"  program.  This  program  clears  the  file 
"ORDCREW" ,  which  v?ill  contain  the  records  created  during  the 
program  execution.  The  program  "LIST  1"  uses  the  file 
"CREWMEMB" ,  which  contains  information  on  crew  members. 
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and  replaces  the  codes  used  for  ranks  and  specialties  with 
their  corresponding  names. 

The  user  is  asked  if  he  wants  the  list  sent  _o  his 
screen  or  to  his  printer,  which  assigns  the  appropriate 
value  to  a  Boolean  variable  named  "printer”,  used  for  the 
selection  of  the  desired  output  device. 

The  program  "SCREEN2"  is  called  which  generates  a 
frame  on  the  user's  screen.  In  this  frame  the  user  options 
are  presented.  By  selecting  one  of  the  options  the  user  can 
produce  a  list  of  crew  members  sorted  on  names,  on  ranks,  on 
enrollment  date,  or  on  disenrollment  date. 

At  the  end  of  the  presentation  or  printing  of  the 
list  the  user  is  asked  if  he  wants  to  repeat  the  process. 

If  he  answers  affirmatively,  the  action  is  repeated, 
otherwise  he  is  exited  to  submenu  3  for  another  option. 

2 .  Lists  of  the  Crew  Containing  Selected  Information 

When  the  user  selects  the  option  of  producing  a  list 
of  crew  members  containing  only  selected  information,  the 
"REPORTER"  program  calls  the  "LIST  2"  program.  This  program 
clears  the  file  "INFOCREW",  in  which  the  records  created 
during  the  program  execution  are  stored,  uses  the  file 
"CREWMEMB"  and  replaces  the  codes  used  for  ranks  and 
specialties  with  those  names. 

The  user  is  asked  if  he  wants  the  list  on  his  screen 
or  on  his  printer  and  the  program  "SCREEN2"  is  called  to 
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generate  the  user's  option  frame.  By  selecting  one  of  the 
options  the  user  can  produce  a  crew  members  list  containing 
names  and  ranks,  names  and  phone  numbers,  names  and 
addresses,  and  names,  addresses  and  phone  numbers.  The 
lists  of  these  groups  are  always  sorted  on  names. 

At  the  end  of  the  presentation  or  printing  of  the 
list  the  user  is  asked  if  he  wants  to  view  the  list  again  or 
to  make  another  copy;  depending  on  his  answer,  he  is 
provided  again  with  the  appropriate  list  or  he  is  exited  to 
submenu  3. 

3.  List  of  the  Crew  Allocated  to  a  Specific  Department 
When  the  user  wants  to  produce  a  list  of  personnel 
of  a  specific  department,  the  program  "LIST  3"  is  called  by 
the  program  "REPORTER".  The  procedures  of  selecting  the 
output  device,  of  presenting  the  options  to  the  user,  and 
for  multiple  executions  of  the  program  "LIST  3"  are  the 
same  as  the  previously  described  cases. 

The  file  "DEPLST"  is  cleared  and  used  for  storage  of 
the  new  records  created  by  the  program  "LIST  3",  and  the 
"CREWMEMB"  file  is  used  to  provide  the  required  information 
of  personnel.  For  each  member  of  the  crew  contained  in  the 
"CREWMEMB"  file,  the  code  corresponding  to  his  specialty  is 


used  for  indexing.  This  code  is  used  tc  search  for  the 
subdepartment  containing  this  specialty.  When  the 
appropriate  subdepartment  is  located,  its  code  is  used  to 


determine  the  department  in  which  this  subdepartment 
belongs.  Finally,  when  the  appropriate  department  is 
located,  its  name  is  inserted  to  the  "DEPLST"  file  along 
with  the  other  information  of  the  crew  member. 

When  the  desired  lists  have  to  be  presented  on  the 
user's  screen  or  printed,  the  distinction  of  the  personnel 
in  each  department  is  made  by  the  use  of  the  department's 
name.  The  lists  are  sorted  on  ranks. 

4 .  List  of  Personnel  Allocated  to  a  Specific 

5ubdepartment 

In  this  case  the  program  "REPORTER"  calls  the 
program  "LIST  4".  This  program  controls  the  sequence  of 
actions  for  the  production  of  the  appropriate  lists.  The 
procedure  of  production  of  the  desired  lists  is  almost  the 
same  as  described  above. 

The  names  of  the  departments  are  presented  to  the 
user  in  the  option  frame.  After  selecting  a  department,  the 
subdepartments  belonging  to  this  department  are  presented  to 
him.  From  these  subdepartments  he  selects  one  for  which  he 
wants  a  listing. 

Some  of  the  subdepartments,  as  for  example  the 
"Administration"  subdepartment,  must  be  assembled  manually. 
In  this  case,  the  system  informs  the  user.  Multiple 
execution  of  the  program  "LIST  4"  is  again  one  of  the  user's 
options . 
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5.  List  of  the  Personnel  Allocated  into  Two  Shifts 


When  the  user  selects  the  option  of  producing  a  list 
of  crew  members  allocated  into  two  shifts  the  program  "LIST 
5"  is  called  by  the  program  "REPORTER".  This  program  has 
been  constructed  with  the  same  logic  as  the  previously 
described  programs.  However,  a  lot  of  processing  on  files 
and  records  is  not  required  since  the  two  shifts  already 
exist  in  the  files  "SHIFT2__A"  and  "SHIFT2_B".  The  records, 
in  these  two  files  need  only  have  the  codes  used  for  ranks 
and  specialties  replaced  with  their  respective  names. 

This  replacement  is  taking  place  under  the  control 
of  the  program  "LIST  5",  and  the  resulting  records  are 
stored  in  the  file  "SHIFTLST"  for  the  construction  of  the 
appropriate  list.  Lists  provided  by  this  program  are  sorted 
on  specialty  and  rank  of  the  personnel. 

6 .  List  of  the  Personnel  Allocated  into  Three  Shifts 
The  program  "REPORTER"  calls  the  program  "LIST  6" 
whenever  the  user  selects  the  option  of  producing  lists  of 
personnel  allocated  into  three  shifts.  And  in  this  case, 
three  files  containing  the  appropriate  shifts  are  used, 
"SHIFT3_A" ,  "SHIFT 3_B" ,  AND  "SHIFT3_C"  files. 

Replacement  of  the  codes  used  for  ranks  and 
specialties  with  their  corresponding  names  must  also  be 
performed  on  these  files,  and  the  same  methods  used  in 
program  "LIST  5"  are  employed. 


"Surface''  Alert 


List  of  Ship  Organization  Durin 


When  the  user  desires  a  listing  of  ship  organization 
during  a  "Surface"  alert,  he  makes  the  appropriate  selec¬ 
tion;  the  program  "REPORTER"  calls  the  program  "LIST  7". 

This  program  uses  the  file  "SALERT"  to  gather  all  the  needed 
information,  and  the  file  "ALERTLST"  to  store  the  new 
records  created  during  its  execution. 

On  this  point  the  user  must  know  that  the  informa¬ 
tion  that  he  will  receive  is  derived  from  the  file  "SALERT", 
.which  may  or  may  not  contain  a  complete  assignment  of 
personnel  to  all  alert  positions.  This  is  because  the  user 
who  executed  the  program  "SURFALERT",  from  which  the  file 
"SALERT"  is  created,  has  the  option  to  complete  the 
allocation  manually  when  a  mismatch  on  ranks  or  on  specialty 
occurs;  in  which  case  some  of  the  required  positions 
necessary  during  this  alert  remain  unmanned.  if  the  user 
does  not  want  to  complete  manually  the  allocation  process, 
he  has  to  execute  the  program  "SURFALERT"  to  completion. 

8 .  List  of  Ship  Organization  During  "Air"  Alert 

The  same  logic  and  programs  apply  here  as  were  used 
in  the  previous  report  listing.  The  program  "LIST  8"  is 
called  by  the  program  "REPORTER”.  The  file  "ALERTLST"  is 
used  again  for  storage  of  the  new  records  created  during  the 
execution  of  the  program  "LIST  3"  and  the  file  "AALERT"  is 
used  to  provide  the  appropriate  information.  In  the  case  of 
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unmanned  positions  the  user  must  execute  the  program 
"AIRALERT"  to  completion  through  submenu  2,  option  3. 

9 .  List  of  Ship  Organization  During  “General”  Alert 

When  the  user  selects  the  option  of  creating  a  list 
of  ship  organization  during  a  "General”  alert,  the  program 
"REPORTER"  calls  the  program  "LIST  9".  This  program  uses 
the  file  "GALERT"  to  correlate  appropriate  information,  and 
the  file  "ALERTLST"  to  store  the  results  of  its  execution. 

If  unmanned  positions  appear  on  the  lists  and  the  user  does 
not  want  to  complete  the  allocation  manually  he  must 
reexecute  the  program  "GENALERT" ,  in  which  the  file  "GALERT" 
is  created,  to  completion  through  submenu  2,  option  1. 
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CONCLUSIONS  AND  RECOMMENDATIONS 


The  purpose  of  this  study  was  to  develop  a  database 
system  model,  suitable  for  implementation  within  a  battle 
ship,  and  able  to  aid  in  the  personnel  management  in  this 
environment. 

The  main  goal  is  to  release  manpower  for  other  purposes, 
by  increasing  effectiveness,  accuracy,  and  speed,  of 
personnel  management.  Another  goal  was  to  provide  solutions 
to  the  job  assignment  problem  in  a  real  time  environment. 

Three  major  factors  influenced  this  study.  The  first 
one  is  the  unclassified  nature  of  it,  which  required  the 
omission  of  details  describing  the  problem.  The  second  was 
the  standarization  of  information  describing  the  problem  in 
order  to  more  closely  accommodate  standards  used  by  most 
nations.  Lastly,  the  absence  of  previous  work  on  the  same 
subject  has  inspired  its  completion. 

As  a  result,  the  developed  system  must  be  considered  as 
a  prototype  model,  which  needs  further  modification  and 
extension  in  order  to  be  used  in  a  real  time  environment. 
Although  the  system  must  be  considered  as  a  prototype  in  its 
present  form,  it  is  still  able  to  substitute  some  manually 
provided  and  time  consuming  jobs,  to  produce  a  number  of 
reports,  and  to  provide  real  time  management  decision 
information . 
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dBASE  III  is  used  as  a  database  management  system, 
because  both  the  relational  data  model  on  which  it  is  based 
and  its  high  level  programming  language  is  very  suitable  for 
implementing  such  a  system. 

The  system  is  "menu  driven".  Therefore,  it  is  not  only 
easy  to  use  but  also  easy  to  modify  since  both  the  user  and 
the  programmer  are  directed  to  the  desired  point  through  the 
sequence  of  menus  and  submenus. 

It  is  already  mentioned  that  this  system  is  a  prototype 
model,  but  due  to  its  ability  of  easy  modification  it  could 
be  the  basis  for  future  work  which  could  cover  all  the  needs 
for  personnel  management  in  a  battle  ship. 
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APPENDIX  A 


A.  MAIN  PROGRAM  AND  MA INMENU 


***  PROGRAM  MASTERPR 

*  This  is  the  main  program  of  the  database  system 
CLEAR 

SET  TALK  OFF 
SET  DELIMITER  OFF 
SET  HEADING  OFF 
SET  EXACT  ON 
PUBLIC  psw 

STORE  ’  »  TO  psw 

@  1 1 , 30  SAY  » ENTER  PASSWORD  ==> ’ 

SET  CONSOLE  OFF 
ACCEPT  TO  psw 
SET  CONSOLE  ON 
USE  users 

LOCATE  FOR  password  -  UPPER (psw) 

IF  EOF ( ) 

SET  COLOR  TO  W* 

9  11,38  SAY  *  UNAUTHORIZED  USER  ’ 

DO  delay 
SET  COLOR  TO  W 
QUIT 
END  IF 

CLOSE  DATABASES 
STORE  . T.  TO  continue 

DO  WHILE  continue 
DO  ma inmenu 
DO  CASE 

CASE  choice  =  0 
CLEAR 
QUIT 

CASE  choice  =*  1 
DO  updated b 
CASE  choice  *  2 
DO  allocate 
CASE  choice  *  3 
DO  reporter 
CASE  choice  =  4 
CLEAR 
RETURN 

ENDCASE 

ENDDO 
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SET  TALK  ON 
WET  DELIMITER  ON 
SET  EXACT  OFF 
SET  HEADING  ON 
CLEAR  ALL 
AttUlM  ’ 


***  PROGRAM  MA INMENU 


CLEAR 

PUBLIC  choice 
STORE  0  TO  choice 

IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, 

MAIN  MENU 
MMMMMMMMM 


7,  18  SAY 

8,  18  SAY 
9, 18  SAY 

10. 18  SAY 

11. 18  SAY 

12. 18  SAY 

13. 18  SAY 

14. 18  SAY 

15. 18  SAY 

16. 18  SAY 
17,  18  SAY 


EXIT  TO  OPERATING  SYSTEM  .  0 

UPDATE  SUPPORTING  FILES  .  1 

CREW  ALLOCATION  . 

LISTS  AND  REPORTS  . 

EXIT  TO  dBASE  III  . 

.  i 

HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  <  ’ 


SET  COLOR  TO  W+ 

0  20,30  SAY  ’ENTER  YOUR  CHOICE  ==> ’ 
GET  choice  PICTURE  ’9’  RANGE  0,5 
READ 

SET  COLOR  TO  W 
RETURN 


*++  PROGRAM  DELAY 

STORE  0  TO  k 
DO  WHILE  k  <  40 

STORE  k  1  TO  k 
ENDDO 
RETURN 
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B.  PROGRAMS  IMPLEMENTING  THE  UPDATE  OPERATIONS 


**■*  PROGRAM  UPDATEDB 
CLEAR 

STORE  ’  ’  TO  updtcont 
PUBLIC  updtcode 

DO  WHILE  UPPER (updtcont)  #  ’  N’ 

DO  submenu 1 
DO  CASE 

CASE  updtcode  =  0 

STORE  ’N’  TO  updtcont 
CASE  updtcode  =  1 
DO  i nscrew 
CASE  updtcode  =  2 
DO  modi crew 
CASE  updtcode  -  3 
DO  mod leave 
CASE  updtcode  =  4 
DO  delecrew 

-  ENDCASE 
ENDDO 
RETURN 
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**■*  PROGRAM  SUBMENU  1 


CLEAR 

PUBLIC  updtcode 
STORE  0  TO  updtcode 


7. 15  SAY 

5. 15  SAY 

9. 15  SAY 

10. 15  SAY 

11. 15  SAY 

12,  18 

13,  IS 

14,  18 

15,  18 

16,  18 

17,  18 


SAY 

SAY 

SAY 

SAY 

SAY 

SAY 


IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, 
SUBMENU  1 
MMMMMMMMM 


EXIT  TO  MAIN  MENU 
INSERT  RECORDS  INTO 
MODIFY  RECORDS  FROM 
MODIFY  RECORDS  FROM 
DELETE  RECORDS  FROM 


CREWMEMB  .  . 
CREWMEMB  .  . 
REQLEAVE  . . 
CREWMEMB  . . 


0 

1 


HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  < 1 
SET  COLOR  TO  W+ 


@  19,29  SAY  ’ENTER  YOUR  SELECTION  ==>  ’  , 
GET  updtcode  PICTURE  ’9’  RANGE  0,4 
READ 


SET  COLOR  TO  W 
RETURN 
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**■*  PROGRAM  INSCREW 


A 


i 


i 


i 

i 

i 


*  This  program  inserts  new  records  into  CREWMEMB  file. 

*  All  other  files  affected  by  the  newly  inserted  record 

*  are  updated 

CLEAR 

STORE  ’ Y’  TO  ansr 
STORE  . F.  TO  done 
USE  req leave 

INDEX  ON  SERNO  TO  req leave 
USE  crewmemb 

INDEX  ON  SERNO  TO  crewmemb 

*  open  he  required  files 
SELECT  1 

USE  users 
SELECT  2 
USE  spy 
SELECT  3 

USE  req leave  INDEX  req leave 
SELECT  4 

USE  crewmemb  INDEX  crewmemb 


DO  WHILE  UPPER (ansr)  =  ’  Y’ 

CLEAR 

DO  screen 1 

SET  COLOR  TO  W+ 

9  3,  14  SAY  ’ INSERT  NEW  RECORD’ 

@  4,  14  SAY  ’  ================= ’ 


SET  COLOR  TO  W 


STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 


’  TO  sno 

’  TO  nm 

TO  rnk 
TO  spc 

’  TO  idate,  odate, reql, req2 
’  TO  addr 

’  TO  phn 


STORE  0  TO  durl,  dur2, rmlv 


9  20,7  SAY  ’ENTER  SERIAL  NUMBER  ==> ’  GET  sno  , 
PICTURE  ’ 99999’ 

READ 

9  20,7  SAY  ’  ’ 

FIND  &sno 
IF  EOF ( ) 

STORE  ’  ’  TO  ans 

9  20,7  SAY  ’DO  YOU  NEED  CODES?  (Y/N)  ==> ’  GET  ans 
READ 

9  20,  7  SAY  ’  » 
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r 


IF  UPPER (ans)  =  ’ Y* 
DO  codescr 
END  IF 


0  20,7 

SAY 

, 

» 

0  5, 5 

SAY 

’  NAME 

9 

GET 

nm 

0  6, 5 

SAY 

’ RANK  CODE 

» 

GET 

rnk 

0  7, 5 

SAY 

’SPEC.  CODE 

9 

GET 

spc 

0  8,5 

SAY 

’ENROL.  DATE 

9 

GET 

idate  PICTURE  ’99/99/99’ 

0  9,5 

SAY 

’ ADDRESS 

9 

GET 

addr 

0  10,5 
READ 

SAY 

’ PHONE 

9 

GET 

phn 

APPEND 

BLANK 

REPLACE  serno  WITH  sno,  name  WITH  nm,  rank  WITH  rnk, , 

spec  WITH  spc,  indate  WITH  CTOD ( idate) ,  , 
address  WITH  addr,  phone  WITH  phn 

STORE  .T.  TO  done 

SELECT  3 

SET  COLOR  TO  W+ 

0  12, 13  SPY  ’ UPDATE  REQLEAVE  FILE’ 

SET  COLOR  TO  W 


0 

14, 

5 

SAY 

’ REMAINING 

LEAVE  : ’ 

GET  rmlv  PICTURE  ’ 

99’ 

0 

15, 

5 

SAY 

’  1st 

LEAVE 

REQUEST  s’ 

GET  req 1  , 

PICTURE  *99/99/99’ 

0 

16, 

5 

SAY 

’  1st 

LEAVE 

DURATION:’ 

GET  durl  PICTURE  » 

991 

0 

17, 

5 

SAY 

’  2nd 

LEAVE 

REQUEST  :’ 

GET  req£  , 

PICTURE  ’99/99/99’ 

@  18, 
READ 

5 

SAY 

’2nd 

LEAVE 

DURATION:’ 

GET  dur2  PICTURE  ’ 

99’ 

APPEND  BLANK 

REPLACE  serno  WITH  sno,  remleave  WITH  rmlv, , 

request  1  WITH  CTOD(reql),  reqldur  WITH  durl,, 
requests  WITH  CTOD<req£),  req2dur  WITH  dur£ 


ELSE 

0  2<9,7  SAY  ’RECORD  ALREADY  EXISTS’ 

DO  delay 

0  20,7  SAY  ’  ’ 

END  IF 

0  20,7  SAY  ’MORE  INSERTIONS?  (Y/N)  ==>  ’  GET  ar.sr 
READ 

SELECT  4 
ENDDO 
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*  update  SPY  file 
IF  done 

SELECT  1 
SO  TOP 

LOCATE  FOR  password  =  psw 
SELECT  2 
APPEND  BLANK 
REPLACE  date  WITH  DATE < ) 

REPLACE  time  WITH  TIMEO 
REPLACE  username  WITH  A- > username 
REPLACE  jobdescr  WITH  » INSERTION* 
REPLACE  progname  WITH  ’ INSCREW’ 
END  IF 

CLOSE  DATABASES 
DELETE  FILE  req leave.  ndx 
DELETE  FILE  cr ewmernb.  ndx 
RETURN 
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*•»*  PROGRAM  SCREEN  1 


CLEAR 

8  2, 4 

SAY 

8 

3,4 

SAY 

8 

4,4 

SAY 

9 

5,4 

SAY 

e 

6,4 

SAY 

8 

7,4 

SAY 

9 

6,  4 

SAY 

9 

9,4 

SAY 

9 

10,  4 

SAY 

9 

11,4 

SAY 

9 

12,4 

SAY 

9 

13,  4 

SAY 

9 

14,  4 

SAY 

9 

15,  4 

SAY 

9 

16,  4 

SAY 

8 

17,4 

SAY 

9 

ia,  4 

SAY 

9 

19,  4 

SAY 

9 

20,4 

SAY 

9 

21,4 

SAY 

RETURN 

IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, 


HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  < 


***  PROGRAM  CODESCR 


@ 

fa 

£, 

3, 

45 

45 

SAY 

SAY 

’  I MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 
’  s  RANK  CODES  SPECIALIZATION 

@ 

5, 

45 

SAY 

:  FF 10 

s 

CDR 

D001 

= 

DECK 

0 

6, 

45 

SAY 

:FF20 

= 

LT  CDR 

D002 

= 

WPN  USER 

& 

7, 

45 

SAY 

IFF30 

= 

LT 

D003 

= 

WPN  CTRL 

@ 

a. 

45 

SAY 

:FF40 

= 

LT  JG 

D004 

COMMUNIC 

® 

9, 

45 

SAY 

:FF50 

= 

ENSIGN 

D005 

* 

NAVI GAT. 

e 

10, 

45 

SAY 

sPF10 

s 

M  CH  PO 

D00S 

= 

RDR  USER 

@ 

11, 

45 

SAY 

sPF20 

= 

S  CH  PO 

D007 

= 

SANITARY 

® 

12, 

45 

SAY 

:PF30 

= 

CH  PO 

E001 

= 

ENGINEER 

@ 

13, 

45 

SAY 

•  PF40 

= 

PO  1  CL 

£0,02 

,= 

ELECTRIC 

® 

14, 

45 

SAY 

:  PF50 

= 

PO  2  CL 

E003 

= 

ELECTRON 

® 

15, 

45 

SAY 

:PF60 

= 

PO  3  CL 

@ 

IS, 

45 

SAY 

:SM10 

= 

SEAMAN 

& 

17, 

45 

SAY 

@ 

ia. 

45 

SAY 

@ 

19, 

45 

SAY 

® 

20, 

45 

SAY 

21, 

45 

SAY 

’  HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 

RETURN 
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***  PROGRAM  MOD I CREW 


*  This  program  modifies  records  into  CREWMEM8  file. 


I 


CLEAR 

STORE  ’ Y’  TO  ansr 
STORE  .F.  TO  done 
USE  crewmemb 

INDEX  ON  SERNO  TO  crewmemb 

SELECT  1 

USE  users 

SELECT  2 

USE  spy 

SELECT  3 

USE  crewmemb  INDEX  crewmemb 
DO  WHILE  UPPER (ansr)  =  ’  Y’ 

STORE  ’  ’  TO  sno 

DO  screen 1 

SET  COLOR  TO  W+ 

@  3,6  SAY  ’MODIFY  RECORDS  (CREWMEMB  FILE)’ 

SET  COLOR  TO  W 

@.20,7  SAY  ’ENTER  SERIAL  NUMBER  ’  GET  sno, 
PICTURE  ’ 99999’ 

READ 


@  £0,7  SAY  ’ 

FIND  &sno 
IF  .NOT.  EOF ( ) 

*  initialize  memvars 
STORE  ’ 

STORE  ’  ’  TO  rnk 

STORE  ’  ’  TO  odate 

STORE  ’ 

STORE  ’  ’  TO  phn 


TO  nm 


’  TO  addr 


*  display  choices 
STORE  0  TO  response 


@  5, 1 1  SAY 

@  6, 1 1  SAY 

@  7, 11  SAY 

@  6, 1 1  SAY 

@  9, l 1  SAY 

@  10, 11  SAY 
@  11,11  SAY 
@  12, 11  SAY 
@  20,7  SAY  ’ 
PICTURE  ’9’ 
READ 


FIELDS  TO  BE  MODIFIED’ 


’  NAME .  1* 

’  RANK .  2’ 

’  DISENROL.  DATE  ..  3’ 

’  ADDRESS .  4’ 

’  PHONE .  5’ 

'  PHONE  +  ADDRESS  .  6’ 

ENTER  FIELD  NUMBER  ==>  ’ 
RANGE  1,6 


GET 


response, 
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@ 

9 

9 

9 

9 

9 

9 

9 

9 


clear  screen 


5.8  SAY 

8.8  SAY 

7.8  SAY 

8.8  SAY 

9.8  SAY 

10.8  SAY 

11.8  SAY 

12.8  SAY 
20,7  SAY 


* 


DO  CASE 
CASE 


CASE 


CASE 


CASE 


CASE 


CASE 


response  -  1 

@5,5  SAY  ‘NAME  GET  ran 

READ 

@5,5  SAY  ’ 

REPLACE  name  WITH  ran 
response  =  2 
STORE  ’  ’  TO  ans 

@  20,7  SAY  ’DO  YOU  NEED  CODES?  (Y/N)  ==> ’ 
GET  ans 


READ 

@20,7  SAY  ’ 

IF  UPPER (ans)  =  ’  Y’ 

DO  rankscr 
END  IF 

@  6,5  SAY  ’RANK  CODE  s’  GET  rnk 

READ 

@  6,5  SAY  ’ 

REPLACE  rank  WITH  rnk 
response  *  3 

@  9,5  SAY  ’DISENRL.  DATE:’  GET  odate, 

PICTURE  ’99/99/99’ 

READ 

@  9,5  SAY  ’ 

REPLACE  outdate  WITH  CTOD (odate) 
response  *  4 

@  10,5  SAY  ’ADDRESS  GET  addr 

READ 

@  10,5  SAY  ’ 


REPLACE  address  WITH  addr 


response  =  5 
@  11,5  SAY  ’PHONE 
READ 

@  11,5  SAY  » 

REPLACE  phone  WITH  phn 
response  -  6 
@  10,5  SAY  ’ADDRESS 
@  11,5  SAY  ’PHONE 
READ 

@  10,5  SAY  » 

@  11,5  SAY  ’ 


:  ’  GET  phn 


:’  GET  addr 
:  ’  GET  phn 


9 


9 
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REPLACE  address  WITH  addr 
REPLACE  phone  WITH  phn 


ENOCASE 

STORE  .  T.  TO  done 
*  Display  modified  record 


0 

5,  5 

SAY 

’  NAME 

’  GET 

name 

0 

S,  5 

SAY 

’ RANK  CODE 

’  GET 

rank 

0 

7,5 

SAY 

’ SPECIALTY 

’  GET 

spec 

0 

a,  s 

SAY 

’ ENROL.  DATE 

’  GET 

indate 

0 

9,5 

SAY 

’ DISENRL  DATE 

’  GET 

out date 

0 

10,5 

SAY 

’ADDRESS 

’  GET 

address 

0 

ELSE 

11,5 

SAY 

’ PHONE 

’  GET 

phone 

0 

20,  7 

SAY 

’  RECORD  DOES  NOT 

EXIST’ 

DO  delay 

0  20, 7  SAY  »  ’ 

END  IF 

CLEAR  GETS 

0  £0,7  SAY  ’MORE  MODIFICATIONS?  (Y/N)  ==>  ’  GET  ar.sr 
READ 
CLEAR 
ENDDQ 

*  update  SPY  file 
I F  done 

SELECT  1 
GO  TOP 

LOCATE  FOR  password  =  psw 
SELECT  2 
APPEND  BLANK 
REPLACE  date  WITH  DATE < ) 

REPLACE  time  WITH  TIMEO 

REPLACE  username  WITH  A- > username 

REPLACE  jobdescr  WITH  ’MODIFICATION’ 

REPLACE  prognarae  WITH  ’MODICREW’ 

END  IF 

CLOSE  DATABASES 

DELETE  FILE  crewmemb. ndx 

RETURN 
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***  PROGRAM  RANKSCR 


@ 

2,  43 

SAY 

• IMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 

0 

3,  43 

SAY 

V 

RANK  CODES 

0 

4,  43 

SAY 

* 

0 

5,  43 

SAY 

9 

CODE 

DESCRIPTION 

0 

3,  43 

SAY 

9 

— 

0 

7,43 

SAY 

f 

FFIO 

COMMANDER 

0 

3,  43 

SAY 

9 

FF20 

LT  COMMANDER 

0 

9,  48 

SAY 

f 

FF30 

LIEUTENANT 

0 

10,  43 

SAY 

9 

FF40 

LIEUTENANT  JG 

0 

11,  48 

SAY 

9 

FF50 

ENSIGN 

0 

13,  48 

SAY 

9 

PF10 

MASTER  CHIEF  PO 

0 

13,  43 

SAY 

PF20 

SENIOR  CHIEF  PO 

0 

14,  43 

SAY 

9 

PF30 

CHIEF  PO 

0 

15,  48 

SAY 

9 

PF40 

PO  1st  CLASS 

0 

13,  48 

SAY 

9 

PF50 

PO  2nd  CLASS 

0 

17,  48 

SAY 

9 

PFS0 

PO  3rd  CLASS 

0 

13,  43 

SAY 

9 

SM10 

SEAMAN 

0 

19,  43 

SAY 

9 

0 

20,  48 

SAY 

9 

0 

21, 48 

SAY 

’ HMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 

RETURN 

***  PROGRAM  MODLEAVE 

*  This  program  modifies  records  into  REQLEAVE  file. 
CLEAR 

STORE  ’ Y’  TO  ansr 
STORE  .F.  TO  done 
USE  req leave 

INDEX  ON  SERNO  TO  req leave 

SELECT  1 

USE  users 

SELECT  2 

USE  spy 

SELECT  3 

USE  reqleave  INDEX  req leave 
DO  WHILE  UPPER (ansr)  =  ’ Y’ 

STORE  *  ’  TO  sno 

DO  screen 1 

SET  COLOR  TO  W+ 

9  3,8  SAY  ’MODIFY  RECORDS  (REQLEAVE  FILE)’ 

SET  COLOR  TO  W 

0.20,7  SAY  ’ENTER  SERIAL  NUMBER  =»=>  ’  GET  sno, 
PICTURE  ’99999’ 

READ 

9  20,  7  SAY  ’  ’ 

FIND  &sno 
IF  .NOT.  EOF  ( ) 

*  initialize  rnemvars 

STORE  ’  ’  TO  req 1 ,  req2 

STORE  0  TO  dur 1,  dur2 

*  display  choices 
STORE  0  TO  response 

9  5,11  SAY  ’FIELDS  TO  BE  MODIFIED’ 


9  6,11  SAY  ’ =»===================’ 

9  7,11  SAY  ’  REQUEST  1  .  1’ 

0  8,11  SAY  ’  REQ  1  DUR .  2’ 

0  9,  1 1  SAY  ’  REQUESTS .  3’ 

9  10,11  SAY  ’  REQ2DUR .  4’ 

0  11,11  SAY  ’ REQUEST 1  +  DURATION  5’ 

0  12,11  SAY  ’ REQUESTS  +  DURATION  6’ 

0  20,7  SAY  ’ENTER  FIELD  NUMBER  ==> ’  GET  response, 

PICTURE  ’9’  RANGE  1,6 

READ 
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*  clear  screen 
@  5,  a  SAY  ’ 

I?  6,  a  SAY  ’ 

@  7, a  SAY  * 

@  a,  a  say  ’ 

@  9,3  SAY  * 

@  10, 3  SAY  ’ 

9  11, a  SAY  ’ 

9  12, a  SAY  ’ 

9  20,7  SAY  » 


DO  CASE 

CASE  response  =  1 

@5,5  SAY  ’  REQUEST 1  :’  GET  reql  , 

PICTURE  ’ 99/99/99’ 

READ 

@5,5  SAY  ’ 

REPLACE  request  1  WITH  CTOD(reql) 

CASE  response  =  2 

@  6,5  SAY  ’ REQ1DUR  :’  GET  durl  , 

PICTURE  ’ 99’ 

READ 

@  6,5  SAY  » 

REPLACE  reqldur  WITH  durl 
CASE  response  =  3 

@  9, 5  SAY  ’ REQUEST2  : ’  GET  req£  , 

PICTURE  ’99/99/99’ 

READ 

9  9,5  SAY  ’ 

REPLACE  request 2  WITH  CT0D(req2) 

CASE  response  =  4 

@  10,5  SAY  ’ REQ2DUR  :’  GET  dur£  , 

PICTURE  ’99’ 

READ 

@  10,5  SAY  ’ 

REPLACE  req£dur  WITH  dur2 
CASE  response  =  5 

@  11,5  SAY  ’ REQUEST 1  :’  GET  reql  , 

PICTURE  ’99/99/99/’ 

@  12,5  SAY  ’ DURATION1  :’  GET  durl  , 
PICTURE  ’ 99’ 

READ 

9  11,5  SAY  ’ 

@  12, 5  SAY  ’ 

REPLACE  request  1  WITH  CTOD(reql) 
REPLACE  reqldur  WITH  durl 
CASE  response  =  6 

@  13,5  SAY  ’REQUESTS  :’  GET  req2  , 

PICTURE  ’99/99/99’ 

@  14,5  SAY  ’ DURATI0N2  :’  GET  dur2  , 
PICTURE  ’99’ 

READ 


1 
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8  13,5  SAY  ’ 

8  14, 5  SAY  ’ 

REPLACE  requests  WITH  CT0D(req2> 
REPLACE  reqSdur  WITH  durS 

ENDCASE 

STORE  . T.  TO  done 
*  Display  modified  record 


8 

5, 

9 

SAY 

’SERIAL  NUMBER 

’  GET 

serno 

8 

6, 

9 

SAY 

’ REMAINING  LEAVE 

’  GET 

rem leave 

8 

7, 

9 

SAY 

’ REQUEST 1 

’  GET 

request  1 

8 

a. 

9 

SAY 

’ REQUEST 1  DURATION 

’  GET 

reqldur 

8 

9, 

9 

SAY 

’ REQUESTS 

’  GET 

requests 

8 

10, 

9 

SAY 

’REQUESTS  DURATION 

’  GET 

reqS'dur 

ELSE 

8 

7 

SAY 

’  RECORD  DOES  NOT  EXIST’ 

DO  delay 

8  20,7  SAY  ’  ’ 

END  IF 

CLEAR  GETS 

8  £0,7  SAY  ’MORE  MODIFICATIONS?  (Y/N)  ==> *  GET  ansr 
READ 
CLEAR 
ENDDO 

*  update  SPY  file 
IF  done 

SELECT  1 
GO  TOP 

LOCATE  FOR  password  =  psw 
SELECT  £ 

APPEND  BLANK 

REPLACE  date  WITH  DATE O 

REPLACE  time  WITH  TIMEO 

REPLACE  username  WITH  A- > username 

REPLACE  .jobdescr  WITH  ’MODIFICATION’ 

REPLACE  progname  WITH  ’ REQLEAVE’ 

END  IF 

CLOSE  DATABASES 

DELETE  FILE  reqleave.ndx 

RETURN 
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***  PROGRAM  DELECREW 


*  This  program  deletes  records  from  CREWMEMB  file, 

*  as  well  as  from  REQLEAVE  file. 

CLEAR 

STORE  ’ Y’  TO  ansr 
STORE  .  F.  TO  done 
USE  crewmemb 

INDEX  ON  SERNO  TO  crewmemb 
USE  req leave 

INDEX  ON  SERNO  TO  req leave 

SELECT  1 

USE  users 

SELECT  2 

USE  spy 

SELECT  3 

USE  req leave  INDEX  req leave 
SELECT  4 
USE  statist 
SELECT  5 

USE  crewmemb  INDEX  crewmemb 

DO  WHILE  UPPER (ansr)  *  ’ Y’ 

CLEAR 

DO  screenl 

SET  COLOR  TO  W+ 

9  3,9  SAY  ’ DELETE  RECORD  FROM  CREWMEMB* 

9  4,9  SAY  ’======*:=«==*=«=======»====» 

SET  COLOR  TO  W 
STORE  ’  ’  TO  sno 

9  20,7  SAY  ’ENTER  SERIAL  NUMBER  ==>  ’  GET  sno  , 
PICTURE  ’ 99999’ 

READ 

9  20,  7  SAY  ’  ’ 

FIND  Asno 
IF  .NOT.  EOF  ( ) 


9 

5,5 

SAY 

’  NAME 

1 

GET 

name 

@ 

6,  5 

SAY 

’ RANK  CODE 

GET 

rank 

9 

7,5 

SAY 

’ SPEC.  CODE 

t 

GET 

spec 

9 

a,  5 

SAY 

’ ENROL.  DATE 

1 

GET 

i ndate 

9 

9,5 

SAY 

’ DISENRL. DATE 

* 

GET 

out date 

9 

9,5 

SAY 

’ ADDRESS 

» 

GET 

address 

9 

10,5 

SAY 

’ PHONE 

f 

GET 

phone 

STORE  ’ 

’  TO  ans 

CLEAR  GETS 

9 

20,  7 

SAY 

’DELETE?  (Y/N) 

==>  ’ 

GET  ans 

READ 
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AD-A171  401 


I HPLEHENT  A 1 1  ON  OF  A  PERSONNEL  DATABASE  SYSIEH  FOR 

alloca  ion  and  rep,.(U)  naual  postsranjaie  school 

NONIEREV  CA  5  ANASTASAIOS  JUN  86 


UNCLASSIFIED 


IF  UPPER (ans)  =  *  Y’ 

SELECT  4 
APPEND  BLANK 

REPLACE  serno  WITH  E-> ssrno 

REPLACE  name  WITH  E— >  name 

REPLACE  rank  WITH  E-> rank 

REPLACE  spec  WITH  E— > spec 

REPLACE  indate  WITH  E-> indate 
REPLACE  outdate  WITH  DATE O 
SELECT  5 
DELETE 

STORE  .T.  TO  done 

SELECT  3 
FIND  isno 
IF  .NOT.  EOF ( ) 

SET  COLOR  TO  W+ 

®  12,9  SAY  ’DELETE  RECORD  FROM  REQLEAVE’ 

SET  COLOR  TO  W 

®  14,5  SAY  ’REMAINING  LEAVE  :*  GET  remieave 

®  15,5  SAY  ’ 1st  LEAVE  REQUEST  ;’  GET  request! 

®  16,5  SAY  ’1st  LEAVE  DURATION:’  GET  reqldur 

®  17,5  SAY  ’2nd  LEAVE  REQUEST  :’  GET  request 2 

®  18,5  SAY  ’2nd  LEAVE  DURATION:’  GET  req£dur 

CLEAR  GETS 
END  IF 
END  IF 
ELSE 

<?  23,7  SAY  ’RECORD  DOES  NOT  EXIST’ 

DO  delay 

@  20,7  SAY  ’  , 

END  IF 

®  20,7  SAY  ’MORE  DELETIONS?  <Y/N>  ==> ’  GET  ansr 
READ 

SELECT  5 
ENDDO 

IF  done 

SELECT  5 
PACK 
SELECT  4 
PACK 
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*  update  SPY  file 
SELECT  1 
GO  TOP 

LOCATE  FOR  password  =  psw 
SELECT  2 
APPEND  BLANK 
REPLACE  date  WITH  DATE ( ) 

REPLACE  time  WITH  TIMEO 
REPLACE  username  WITH  A— > username 
REPLACE  jobdescr  WITH  ’ DELETION* 
REPLACE  progname  WITH  ’ DELECREW’ 
END  IF 

CLOSE  DATABASES 
DELETE  FILE  crewmemb. ndx 
DELETE  FILE  reqleave. ndx 
RETURN 
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C.  PROGRAMS  SUPPORTING  THE  CREW  ALLOCATION 


***  PROGRAM  ALLOCATE 

*  This  program  allocate  the  ship  crew  into  £  or  3  shift 

*  and  performs  the  ship  manning  according  to  alert  type 

CLEAR 

STORE  *  »  TO  allcont 

PUBLIC  allcode 

DO  WHILE  UPPER (allcont)  #  » N» 

DO  submenu^ 

DO  CASE 

CASE  allcode  =  0 

STORE  ’  N’  TO  allcont 
CASE  allcode  *  1 
DO  genalert 
CASE  allcode  =  £ 

DO  surf alert 
CASE  allcode  *  3 
DO  airalert 
CASE  allcode  *  4 
DO  shifts 
CASE  all code  »  5 
DO  sh  i  f  1 3 

ENDCASE 

ENDDO 

RETURN 
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***  PROGRAM  SUBMENUS 


CLEAR 

PUBLIC  allcode 
STORE  0  TO  allcode 


©  7, 14  SAY 

©  8, 14  SAY 

©  9, 14  SAY 

©  10, 14  SAY 

©  11,14  SAY  EXIT  TO  MAIN  MENU . . .  0  : 

©  12, 14  SAY  * :  CREW  ALLOCATION  FOR  GENERAL  ALERT  .  1  : 

©  13, 14  SAY  ’ s  CREW  ALLOCATION  FOR  SURFACE  ALERT  .  2  : 

©  14,  14  SAY  ’  s  CREW  ALLOCATION  FOR  AIR  ALERT .  3  : 

©  15,  14  SAY  ’  :  CREW  ALLOCATION  INTO  2  SHIFTS .  4  : 

©  16,  14  SAY  »  :  CREW  ALLOCATION  INTO  3  SHIFTS .  5  : 

©  17, 14  SAY  ’ HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  < 
SET  COLOR  TO  W+ 

©  19,26  SAY  ’ENTER  YOUR  SELECTION  ==> ’  , 

GET  allcode  PICTURE  ’9’  RANGE  0,5 
READ 

SET  COLOR  TO  W 


IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, 
:  SUBMENU  2  : 
s  MMMMMMMMM  : 


RETURN 
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***  PROGRAM  GENALERT 

*  This  program  perforins  the  ship  manning  for  general  alert 
CLEAR 

DO  screenE 

9  9,29  SAY  ’AUXILIARY  FILE  CREATION’ 

COPY  FILE  crewmemb.  dbf  TO  tmpcrew-dbf 
9  11,29  SAY  »  TMPCREW’ 

COPY  FILE  alert. dbf  TO  tmpalert.dbf 
9  12,29  SAY  ’  TMPALERT’ 

*  open  required  files 
SELECT  1 

USE  users 
SELECT  2  ' 

USE  spy 

SELECT  3 

USE  galert 

DELETE  NEXT  100 

PACK 

SELECT  4 

USE  tjnpcrew 

SELECT  5 

USE  tmpalert 

STORE  .F.  TO  finish 

STORE  .T.  TO  done 

9  9,25  SAY  ’ 

9  10,25  SAY  ’  ’ 

0  11,25  SAY  ’  ’ 

SET  COLOR  TO  W* 

9  12,25  SAY  ’  PROCESSING  IN  PROGRESS’ 

SET  COLOR  TO  W 
DO  WHILE  -NOT.  EOF ( ) 

STORE  .F.  TO  ok 
SELECT  4 
GO  TOP 

LOCATE  FOR  rank  ™  E— >  reqrank  . AND.  spec  ■  E— >  reqspec  , 
.AND.  .NOT.  DELETED  <> 

IF  .NOT.  EOF ( ) 

DELETE 
SELECT  3 
APPEND  BLANK 

REPLACE  rank  WITH  D-> rank 
REPLACE  name  WITH  D-> name 
REPLACE  spec  WITH  D->spec 
REPLACE  poscode  WITH  E->  poscode 
REPLACE  descr  WITH  E->descr 
STORE  .T,  TO  ok 
ELSE 

STORE  . F.  TO  done 
END  IF 
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SELECT  5 
IF  ok 

DELETE 
END  IF 
SKIP 
ENDDO 

0  12, £5  SAY  ’  ’ 

•* 

IF  . NOT.  done 

STORE  *  »  TO  ansr 
0  19,26  CLEAR 

0  19,26  SAY  ’SOME  POSITIONS  REMAIN  UNMANNED’ 

0  20,26  SAY  ’DUE  TO  NOT  EXACT  MATCH  OF  THE’ 

0  21,26  SAY  ’  RANK  OR  SPECIALTY’ 

0  23,23  SAY  ’IGNORE  RANK  AND  CONTINUE?  (Y/N)  ==>  ’  GET  arisr 
READ 

0  19,23  CLEAR 
IF  UPPER  (ansr*)  =  ’  Y’ 

SELECT  5 
GO  TOP 

STORE  -T.  TO  done 
SET  COLOR  TO  W* 

0  12,25  SAY  ’  PROCESSING  IN  PROGRESS’ 

SET  COLOR  TO  W 
DO  WHILE  .NOT.  EOF <) 

STORE  .F.  TO  ok 
IF  .NOT.  DELETED () 

SELECT  4 
GO  TOP 

LOCATE  FOR  spec  =  E-> reqspec  .AND.  .NOT.  DELETED.) 
IF  .NOT.  EOF  < ) 

DELETE 
SELECT  3 
APPEND  BLANK 

REPLACE  rank  WITH  D-> rank 
REPLACE  name  WITH  D— > name 
REPLACE  spec  WITH  D-> spec 
REPLACE  poscode  WITH  E-> poscode 
REPLACE  descr  WITH  E-) descr 
STORE  .T.  TO  ok 
ELSE 

STORE  . F.  TO  done 
END  IF 
END  IF 
SELECT  5 
IF  ok 

DELETE 
END  IF 
SKIP 
ENDDO 

0  12,25  SAY  ’  ’ 
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ELSE 

STORE  .T.  TO  finish 
END  IF 
END  IF 
* 

IF  .NOT.  finish 
IF  . NOT.  done 

STORE  ’  ’  TO  ansr 
9  19,23  CLEAR 

®  19,23  SAY  ’SOME  POSITIONS  STILL  REMAIN  UNMANNED’ 
9  28,23  SAY  ’DUE  TO  NOT  EXACT  MATCH  OF  THE  FIELD’ 
9  21,23  SAY  ’  SPECIALTY’ 

9  23,23  SAY  ’IGNORE  SPECIALTY  AND  CONTINUE?  (Y/N) 

GET  ansr 

READ 

9  19,23  CLEAR 
IF  UPPER (ansr)  =  ’ Y’ 

STORE  .  T.  TO  done 
SET  COLOR  TO  W* 

9  12,25  SAY  ’  PROCESSING  IN  PROGRESS’ 

SET  COLOR  TO  W 
SELECT  5 
GO  TOP 

DO  WHILE  .NOT.  EOF < ) 

STORE  .F.  TO  ok 
IF  .NOT.  DELETED <) 

SELECT  4 
GO  TOP 

LOCATE  FOR  -NOT.  DELETED (> 

IF  .NOT.  EOF  < ) 

DELETE 
SELECT  3 
APPEND  BLANK 

REPLACE  rank  WITH  D— > rank 
REPLACE  name  WITH  D-> name 
REPLACE  spec  WITH  D-> spec 
REPLACE  poscode  WITH  E— > poscode 
REPLACE  descr  WITH  E— > descr 
STORE  .T.  TO  ok 
ELSE 

STORE  . F.  TO  done 
END  IF 
END  IF 
SELECT  5 
IF  ok 

DELETE 
END  IF 
SKIP 
ENDDO 

9  12,25  SAY  ’  ’ 
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ELSE 

STORE  -T.  TO  finish 
END  IF 
END IF  ' 

END  IF 

41- 

SELECT  4 

LOCATE  FOR  .NOT.  DELETED ( > 

IF  .NOT.  EOF  ( ) 

STORE  ’  »  TO  ansr 
C-  19,23  CLEAR 

@  19,23  SAY  'THERE  IS  STILL  AVAILABLE  PERSONNEL* 
C-  20,23  SAY  ’DO  YOU  WANT  TO  SEE  THEM?  (Y/N)  ==>  ’ 
READ 

IF  UPPER (ansr)  *  ’ Y* 

CLEAR 
GO  TOP 

LOCATE  FOR  .NOT.  DELETED ( ) 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  serno,  name,  rank,  spec  FOR  . NOT. 
DO  delayl 
CONTINUE 
ENDDO 
END  IF 
END  IF 

*  update  SPY  file 
SELECT  1 
GO  TOP 

LOCATE  FOR  password  *  psw 

SELECT  2 

APPEND  BLANK 

REPLACE  date  WITH  DATEO 

REPLACE  time  WITH  TIMEO 

REPLACE  username  WITH  A->  username 

REPLACE  jobdescr  WITH  ’ALLOCATION* 

REPLACE  progname  WITH  ’ GENALERT’ 

CLOSE  DATABASES 
DELETE  FILE  tmpcrew. dbf 
DELETE  FILE  tmpalert. dbf 
RETURN 


GET  ansr 


DELETED  < > 
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***  PROGRAM  SURFALERT 

*  This  program  performs  the  ship  manning  for  surface  alert 
CLEAR 

DO  screens 

@  9,29  SAY  ’AUXILIARY  FILE  CREATION’ 

COPY  FILE  crewmemb. dbf  TO  tmpcrew. dbf 
0  11,29  SAY  ’  TMPCREW’ 

COPY  FILE  alert. dbf  TO  tmpalert.dbf 

*  delete  the  positions  that  are  not  necessary  to  be  manned 
USE  tmpalert 

DELETE  FOR  UPPER (descr)  =  ’SUN  41  CONTROL’ 

DELETE  FOR  UPPER (descr)  =  ’GUN  42  CONTROL’ 

DELETE  FOR  UPPER(descr)  =  ’A/A  MISS  CONTR’ 

DELETE  FOR  UPPER (descr)  =  ’A/A  MISS  TELEPH’ 

DELETE  FOR  UPPER(descr)  =  ’ A/A  MISSILES  1’ 

DELETE  FOR  UPPER (descr)  =  ’A/A  MISSILES  2’ 

PACK 

0  12,29  SAY  ’  TMPALERT’ 

*  open  required  files 
SELECT  1 

USE  users 
SELECT  2 
USE  spy 
SELECT  3 
USE  sa 1 er t 
DELETE  NEXT  100 
PACK 

SELECT  4 
USE  tmpcrew 
SELECT  5 
USE  tmpalert 
STORE  .F.  TO  finish 
STORE  . T.  TO  done 

0  9, 25  SAY  ’  ’ 

0  10,25  SAY  ’  ’ 

0  11,25  SAY  ’  ’ 

SET  COLOR  TO  W* 

0  12,25  SAY  ’  PROCESSING  IN  PROGRESS’ 

SET  COLOR  TO  W 
DO  WHILE  .NOT.  EOF ( ) 

STORE  -F.  TO  ok 
SELECT  4 
GO  TOP 

LOCATE  FOR  rank  «  E— >  reqrank  . AND.  spec  =  E— >  reqspec  , 

•  AND.  .NOT.  DELETED  () 
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IF  .  NQT.  EOFO 
DELETE 
SELECT  3 
APPEND  BLANK 

REPLACE  rank  WITH  D-) rank 
REPLACE  name  WITH  D— > name 
REPLACE  spec  WITH  D— > spec 
REPLACE  poscode  WITH  E— >  poscode 
REPLACE  descr  WITH  E-> descr 
STORE  .T.  TO  ok 
ELSE 

STORE  . F.  TO  done 
END  IF 
SELECT  5 
IF  ok 

DELETE 
END  IF 
SKIP 
ENDDO 

@  12, 25  SAY  *  » 

IF  . NOT.  done 

STORE  *  '  TO  ansr 
@.13, 26  CLEAR 

@  13,26  SAY  ’SOME  POSITIONS  REMAIN  UNMANNED’ 

@  2@,£6  SAY  ’DUE  TO  NOT  EXACT  MATCH  OF  THE’ 

@  21,26  SAY  ’  RANK  OR  SPECIALTY’ 

@  23,23  SAY  ’IGNORE  RANK  AND  CONTINUE?  (Y/N)  ==>  ’  GET  an= 
READ 

@  13,23  CLEAR 
IF  UPPER (ansr)  =  ’  Y’ 

SELECT  5 
GO  TOP 

STORE  . T.  TO  done 
SET  COLOR  TO  W* 

@  12,25  SAY  ’  PROCESSING  IN  PROGRESS’ 

SET  COLOR  TO  W 
DO  WHILE  .NOT.  EOFO 
STORE  .F.  TO  ok 
IF  .NOT.  DELETED () 

SELECT  4 
GO  TOP 

LOCATE  FOR  spec  =  E-> reqspec  .AND.  .NOT.  DELETED 
IF  .NOT.  EOFO 
DELETE 
SELECT  3 
APPEND  BLANK 

REPLACE  rank  WITH  D-> rank 
REPLACE  name  WITH  D— > name 
REPLACE  spec  WITH  D-> spec 
REPLACE  poscode  WITH  E-> poscode 
REPLACE  descr  WITH  E-> descr 
STORE  .T.  TO  ok 
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ELSE 

STORE  . F.  TO  done 
END  IF 
END  IF 
SELECT  5 
IF  ok 

DELETE 
END  IF 
SKIP 
ENDDO 

&  12,25  SPY  ’  ’ 

ELSE 

STORE  .  T.  TO  finish 
END  IF 
END  IF 
* 

IF  -NOT.  finish 
IF  . NOT.  done 

STORE  ’  ’  TO  ansr 
9  IS,  23  CLEAR 

9  19,23  SAY  ’SOME  POSITIONS  STILL  REMAIN  UNMANNED" 

@  20,23  SAY  ’DUE  TO  NOT  EXACT  MATCH  OF  THE  FIELD’ 

;  9  21,23  SAY  ’  SPECIALTY’ 

0  23,23  SAY  ’IGNORE  SPECIALTY  AND  CONTINUE?  lY/N)  ==>' 
GET  ansr 

READ 

0  19,23  CLEAR 
IF  UPPER (ansr)  =  ’ Y’ 

STORE  .T.  TO  done 
SET  COLOR  TO  W* 

0  12,25  SAY  ’  PROCESSING  IN  PROGRESS’ 

SET  COLOR  TO  W 
SELECT  5 
GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

STORE  .F.  TO  ok 
IF  . NOT.  DELETED ( ) 

SELECT  4 
GO  TOP 

LOCATE  FOR  .NOT.  DELETED O 
IF  .NOT.  EOF ( ) 

DELETE 
SELECT  3 
APPEND  BLANK 

REPLACE  rank  WITH  D-> rank 
REPLACE  name  WITH  D-> name 
REPLACE  spec  WITH  D— > spec 
REPLACE  poscode  WITH  E-> poscode 
REPLACE  descr  WITH  E— > descr 
STORE  . T.  TO  ok 


106 


ELSE 

STORE  .F.  TO  done 
END  IF 
END  IF 
SELECT  5 
IF  ok 

DELETE 
END  IF 
SKIP 
ENDDO 

(5  12,25  SPY  ’  ’ 

ELSE 

STORE  .T.  TO  finish 
END  IF 
END  IF 
END  IF 

SELECT  4 

LOCATE  FOR  .NOT.  DELETED ( ) 

IF  .NOT.  EOF ( ) 

STORE  *  ’  TO  ansr 

@  13,23  CLEAR 

ia.13,23  SAY  ’THERE  IS  STILL  AVAILABLE  PERSONNEL’ 

i3  20,23  SAY  ’DO  YOU  WANT  TO  SEE  THEM?  (Y/N)  ==>  ’  GET  a  ns 

READ 

IF  UPPER (ansr)  =  ’ Y’ 

CLEAR 
GO  TOP 

LOCATE  FOR  -NOT.  DELETED O 
DO  WHILE  .NOT.  EOF O 

DISPLAY  serno,  name,  rank,  spec  FOR  . NDT.  DELETED \ 
DO  delayl 
CONTINUE 
ENDDO 
END  IF 
ENDIF 

*  update  SPY  file 
SELECT  1 
GO  TOP 

LOCATE  FOR  password  =  psw 
SELECT  2 
APPEND  BLANK 
REPLACE  date  WITH  DATE ( ) 

REPLACE  time  WITH  TIMEO 

REPLACE  username  WITH  A— > username 

REPLACE  jobdescr  WITH  ’ALLOCATION’ 

REPLACE  progname  WITH  ’ SURFALERT’ 

CLOSE  DATABASES 
DELETE  FILE  tmpcrew. dbf 
DELETE  FILE  tmpalert.dbf 
RETURN 
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***  PROGRAM  AIRALERT 

*  This  program  performs  the  ship  manning  for  air  alert 
CLEAR 

CO  screenE 

@  9,29  SAY  ’AUXILIARY  FILE  CREATION’ 

COPY  FILE  crewmemb. dbf  TO  tmpcrew. dbf 
@  11,29  SAY  ’  TMPCREW’ 

COPY  FILE  alert. dbf  TO  tmpalert.dbf 

*  delete  the  positions  that  are  not  necessary  to  be  manned 
USE  tmpalert 

DELETE  FOR  UPPER (descr)  =  ’TORPEDO  TUBE  1’ 

DELETE  FOR  UPPER (descr)  =  ’TORPEDO  TUBE  2’ 

DELETE  FOR  UPPER (descr)  =  ’ SS  MISS  CONTR’ 

DELETE  FOR  UPPER (descr)  =  ’ SS  MISS  TELEPH’ 

DELETE  FOR  UPPER(descr)  =  ’ SS  MISSILES  1’ 

DELETE  FOR  UPPER(descr)  =  ’ SS  MISSILES  2’ 

PACK 

@  12,29  SAY  ’  TMPALERT’ 

*  open  required  files 
SELECT  1 

USE  users 
SELECT  2 
USE  spy 
SELECT  3 
USE  aalert 
DELETE  NEXT  113(3 
PACK 

SELECT  4 
USE  tmpcrew 
SELECT  5 
USE  tmpalert 
STORE  .F.  TO  finish 
STORE  . T.  TO  done 

9  9,25  SAY  ’  ’ 

@  1(3,25  SAY  ’  ’ 

@  11,25  SAY  ’  ’ 

SET  COLOR  TO  W* 

@  12,25  SAY  ’  PROCESSING  IN  PROGRESS’ 

SET  COLOR  TO  W 
DO  WHILE  .NOT.  EOF ( > 

STORE  .F.  TO  ok 
SELECT  4 
GO  TOP 

LOCATE  FOR  rank  =  E-)reqrank  .AND.  spec  =  E— > reqspec  , 

. AND.  . NOT.  DELETED  < ) 
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IF  .NOT.  EOF ( ) 

DELETE 
SELECT  3 
APPEND  BLANK 

REPLACE  rank  WITH  D-> rank 
REPLACE  name  WITH  D-> name 
REPLACE  spec  WITH  D-> spec 
REPLACE  poscode  WITH  E-> poscode 
REPLACE  descr  WITH  £-> descr 
STORE  .T.  TO  ok 
ELSE 

STORE  .F.  TO  done 
END  IF 
SELECT  5 
IF  ok 

DELETE 
END  IF 
SKIP 
ENDDO 

@  12,25  SAY  ’  ’ 

IF  .NOT.  done 

STORE  ’  ’  TO  ansr 
@.19, 26  CLEAR 

@  19,26  SAY  ’SOME  POSITIONS  REMAIN  UNMANNED’ 

@  £0,26  SAY  ’DUE  TO  NOT  EXACT  MATCH  OF  THE’ 

@  21,26  SAY  ’  RANK  OR  SPECIALTY’ 

@  23,23  SAY  ’IGNORE  RANK  AND  CONTINUE?  (Y/N)  *»> ’  SET  ansr 
READ 

@  19,23  CLEAR 
IF  UPPER (ansr)  =  »Y’ 

SELECT  5 
GO  TOP 

STORE  .T.  TO  done 
SET  COLOR  TO  W* 

@  12,25  SAY  ’  PROCESSING  IN  PROGRESS’ 

SET  COLOR  TO  W 
DO  WHILE  .NOT.  EOF ( > 

STORE  .F.  TO  ok 
IF  .NOT.  DELETED () 

SELECT  4 
GO  TOP 

LOCATE  FOR  spec  =  E— >  reqspec  . AND.  . NOT.  DELETED  < ) 
IF  . NOT.  EOF ( > 

DELETE 
SELECT  3 
APPEND  BLANK 

REPLACE  rank  WITH  D->rank 
REPLACE  name  WITH  D->  name 
REPLACE  spec  WITH  D-> spec 
REPLACE  poscode  WITH  E->  poscode 
REPLACE  descr  WITH  E-> descr 
STORE  . T.  TO  ok 
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ELSE 

STORE  . F.  TO  done 
END  IF 
END  IF 
SELECT  5 
IF  ok 

DELETE 
END  IF 
SKIP 
ENDDO 

0  12,25  SPY  ’  » 

ELSE 

STORE  . T.  TO  finish 
END  IF 
END  IF 
*• 

IF  .NOT.  finish 
IF  . NOT.  done 

STORE  ’  ’  TO  ansr 
0  19,23  CLEAR 

0  19,23  SAY  ’SOME  POSITIONS  STILL  REMAIN  UNMANNED’ 
l?  20,23  SAY  ’DUE  TO  NOT  EXACT  MATCH  OF  THE  FIELD’ 
-  0  21,23  SAY  ’  SPECIALTY’ 

0  23,23  SAY  ’IGNORE  SPECIALTY  AND  CONTINUE?  (Y/N) 

GET  ansr 

READ 

0  19,23  CLEAR 
IF  UPPER (ansr)  *  ’ Y’ 

STORE  .T.  TO  done 
SET  COLOR  TO  W* 

0  12,25  SAY  ’  PROCESSING  IN  PROGRESS’ 

SET  COLOR  TO  W 
SELECT  5 
GO  TOP 

DO  WHILE  .NOT.  EOF < ) 

STORE  .F.  TO  ok 
IF  .NOT.  DELETED () 

SELECT  4 
GO  TOP 

LOCATE  FOR  .NOT.  DELETED ( ) 

IF  .NOT.  EOF ( ) 

DELETE 
SELECT  3 
APPEND  BLANK 

REPLACE  rank  WITH  D-> rank 
REPLACE  name  WITH  0-.'  name 
REPLACE  spec  WITH  D— > spec 
REPLACE  poscode  WITH  E— > poscode 
REPLACE  descr  WITH  E-)descr 
STORE  .T.  TO  ok 
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ELSE 

STORE  .F.  TO  done 
END  IF 
END  IF 
SELECT  5 
IF  ok 

DELETE 
END  IF 
SKIP 
ENDDO 

@  12,25  SAY  *  ’ 

ELSE 

STORE  .  T.  TO  finish 
END  IF 
END  IF 
END  IF 
* 

SELECT  4 

LOCATE  FOR  .NOT.  DELETED O 
IF  .NOT.  EOF  ( ) 

STORE  ’  ’  TO  ansr 
@  IS, 23  CLEAR 

I?  ..IS,  23  SAY  ’THERE  IS  STILL  AVAILABLE  PERSONNEL’ 

<3  20, 23  SAY  ’DO  YOU  WANT  TO  SEE  THEM?  (Y/N)  ==>  ’  GET  an 
READ 

IF  UPPER (ansr)  *  *  Y» 

CLEAR 
GO  TOP 

LOCATE  FOR  .NOT.  DELETED ( ) 

DO  WHILE  .NOT.  EOF  (  ) 

DISPLAY  serno,  name,  rank,  spec  FOR  .NOT.  DELETED 
DO  delayl 
CONTINUE 
ENDDO 
END  IF 
END  IF 

*  update  SPY  file 
SELECT  1 
GO  TOP 

LOCATE  FOR  password  =  psw 
SELECT  2 
APPEND  BLANK 
REPLACE  date  WITH  DATE <> 

REPLACE  time  WITH  TIMEO 

REPLACE  username  WITH  fl->  username 

REPLACE  jobdescr  WITH  ’ALLOCATION’ 

REPLACE  progname  WITH  ’ AI RALERT’ 

CLOSE  DATABASES 
DELETE  FILE  tmpcrew. dbf 
DELETE  FILE  tmpalert. dbf 
RETURN 
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+**  PROGRAM  SCREENS 
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’ HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  < 

RETURN 


***  PROGRAM  DELAY 1 

STORE  O  TO  d 
DO  WHILE  d  <  10 

STORE  d  +  1  TO  d 
ENDDQ 
RETURN 
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***  PROGRAM  SHIFTS 


*■  This  program  performs  the  crew  allocation 

*  into  two  shifts 

CLEAR 

DO  screens 

®  9,29  SAY  ’AUXILIARY  FILE  CREATION’ 

COPY  FILE  crewmemb.  dbf  TO  tmpshift.dbf 
USE  tmpshift 

INDEX  ON  SPEC+RANK  TO  tmpshift 

*  11,29  SAY  *  TMPSHIFT’ 

*  open  the  required  files 
SELECT  1 

USE  users 
SELECT  2 
USE  spy 
SELECT  3 
USE  shiftSa 
DELETE  NEXT  100 
PACK 

SELECT  4 
USE  shiftSb 
DELETE  NEXT  100 
PACK 

SELECT  5 

USE  tmpshift  INDEX  tmpshift 
®  9, 25  SAY  ’  , 

@  10,25  SAY  ’  , 

@  11,25  SAY  ’  , 

SET  COLOR  TO  W-* 

@  12,25  SAY  ’  PROCESSING  IN  PROGRESS’ 

STORE  0  TO  count  1 
STORE  0  TO  count2 
STORE  .T.  TO  contin 
SET  COLOR  TO  W 
SELECT  5 
GO  TOP 

DO  WHILE  contin 
IF  EOF ( ) 

STORE  .  F.  TO  contin 
ELSE 

SELECT  3 
APPEND  BLANK 

REPLACE  rank  WITH  E-> rank 
REPLACE  name  WITH  E~ ) name 
REPLACE  spec  WITH  E—>  spec 
STORE  count  1  +  1  TO  count  1 
SELECT  5 
SKIP 
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corit  in 


IF  EOF ( ) 

STORE  . F.  TO 
ELSE 

SELECT  4 
APPEND  BLANK 
REPLACE  rank  WITH  E-> rank 
REPLACE  name  WITH  E-> name 
REPLACE  spec  WITH  E-> spec 
STORE  counts  +  1  TO  counts 
SELECT  5 
SKIP 
END  IF 
END  IF 
ENDDO 
CLEAR 

STORE  ’  ’  TO  ans 

®  13, S3  SAY  ’THE  TWO  SHIFTS  ARE  READY’ 

®  SO, S3  SAY  ’DO  YOU  WANT  TO  SEE  THEM?  (Y/N)  ==> ’  GET  ans 
READ 

IF  UPPER (ans)  *  ’ Y’ 

STORE  .F.  TO  fin 
STORE  O  TO  ch 
DO  WHILE  .NOT.  fin 
DO  screens 

@  3,34  SAY  ’YOUR  CHOICE 


@  IS,  30  SAY  ’SHIFT  A  . .  1’ 

®  13,30  SAY  ’SHIFT  B .  S’ 

@  14,30  SAY  ’SHIFT  A  AND  B  ...  3’’ 

@  15,30  SAY  ’EXIT . 4’ 

@  18, 10  CLEAR 


®  S0,S8  SAY  ’ENTER  YOUR  CHOICE  =*>  ’  GET  ch  , 
PICTURE  ’3’  RANGE  1,4 
READ 
DO  CASE 

CASE  ch  *  1 
CLEAR 
SELECT  3 
GO  TOP 

DO  WHILE  .NOT.  EOF < ) 

DISPLAY  rank,  name,  spec 
DO  delayl 
SKIP 
ENDDO 

CASE  ch  *  S 
CLEAR 
SELECT  4 
GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  rank,  name,  spec 
DO  delayl 
SKIP 
ENDDO 
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CASE  ch  =  3 
CLEAR 
SELECT  3 
GO  TOP 

DG  WHILE  .NOT.  EOF ( ) 

DISPLAY  rank,  name,  spec 
DO  delayl 
SKIP 
ENDDO 

CLEAR 
SELECT  4 
GO  TOP 

DO  WHILE  .NOT.  EOF  O 

DISPLAY  rank,  name,  spec 
DO  delayl 
SKIP 
ENDDO 

CASE  ch  =  4 

STORE  .T.  TO  fin 

ENDCASE 

CLEAR 

.  IF  .NOT.  fin 

STORE  ’  ’  TO  res 

@  20, 1 fl  SAY  ’ DO  YOU  WANT  TO  SEE  ANY  ONE  OF  THE’ 

@  21, 18  SAY  ’  SHIFTS  AGAIN?  (Y/N)  ==> *  GET 

READ 

IF  UPPER < res)  #  ’ Y* 

STORE  .T.  TO  fin 
END  IF 
END  IF 
ENDDO 
ENOIF 

*  update  SPY  file 
SELECT  1 
GO  TOP 

LOCATE  FOR  password  =  psw 
SELECT  2 
APPEND  BLANK 
REPLACE  date  WITH  DATE ( ) 

REPLACE  time  WITH  TIMEO 

REPLACE  username  WITH  A->  username 

REPLACE  jobdescr  WITH  ’ALLOCATION’ 

REPLACE  progname  WITH  ’ SHIFT2’ 

CLEAR 

CLOSE  DATABASES 
DELETE  FILE  tmpshift.dbf 
DELETE  FILE  tmpshift.ndx 
RETURN 


res 
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*■**  PROGRAM  SHIFTS 


*  This  program  performs  the  crew  allocation 

*  into  three  shifts 

CLEAR 

DO  screens 

@  9,29  SAY  ’AUXILIARY  FILE  CREATION’ 

COPY  FILE  crewmemb. dbf  TO  tmpsh i ft . dbf 
USE  tmpshift 

INDEX  ON  SPEC+RANK  TO  tmpshift 
®  11,29  SAY  ’  TMPSHIFT’ 

*  open  the  required  files 
SELECT  1 

USE  users 
SELECT  2 
USE  spy 
SELECT  3 
USE  sh i ft  3a 
DELETE  NEXT  100 
PACK 

SELECT  4 
USE  sh i f 1 3b 
DELETE  NEXT  1O0 
PACK 

SELECT  5 
USE  shift3c 
DELETE  NEXT  100 
PACK 

SELECT  6 

USE  tmpshift  INDEX  tmpshift 

■3  9,25  SAY  ’  , 

<3  10,  25  SAY  ’  , 

'3  11,25  SAY  ’  , 

SET  COLOR  TO  U* 

®  12,25  SAY  ’  PROCESSING  IN  PROGRESS’ 

STORE  0  TO  count  1 
STORE  0  TO  count 2 
STORE  0  TO  counts 
STORE  .T.  TO  contin 
SET  COLOR  TO  U 
SELECT  6 
GO  TOP 
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DO  WHILE  contin 
IF  EOF ( ) 

STORE  .  F.  TO  contin 
ELSE 

SELECT  3 
APPEND  BLANK 

REPLACE  rank  WITH  F-> rank 
REPLACE  name  WITH  F-> name 
REPLACE  spec  WITH  F-> spec 
STORE  count  1  +  1  TO  count  1 
SELECT  & 

SKIP 


«■ 


IF  EOF  ' ) 

STORE  . F.  TO 
ELSE 

SELECT  4 
APPEND  BLANK 
REPLACE  rank 
REPLACE  name 
REPLACE  spec 
STORE  counts 
SELECT  6 
SKIP 
END  IF 


cont in 

i 


WITH  F— > rank 
WITH  F->narne 
WITH  F— > spec 
+  1  TO  counts 


IF  EOF ( ) 

STORE  .F.  TO  contin 
ELSE 

SELECT  5 
APPEND  BLANK 

REPLACE  rank  WITH  F-> rank 
REPLACE  name  WITH  F— >  name 
REPLACE  spec  WITH  F-> spec 
STORE  counts  +  1  TO  counts 
SELECT  S 
SKIP 
END  IF 


END  IF 
ENDDO 
CLEAR 

STORE  ’  ’  TO  ans 

®  19, S3  SAY  ’THE  THREE  SHIFTS  ARE  READY’ 

i?  SC,  S3  SAY  ’DO  YOU  WANT  TO  SEE  THEM?  (Y/N)  ==>  ’  GET  ans 

READ 
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IF  UPPER (ans)  =  ’ Y’ 

STORE  .F.  TO  fin 
STORE  0  TO  ch 
DO  WHILE  .NOT.  fin 
DO  screens 

@  9,34  SAY  ’YOUR  CHOICE 


@  12,30  SAY  ’SHIFT  A .  1’ 

@  13,30  SAY  ’SHIFT  B .  2’ 

0  14,30  SAY  ’SHIFT  C .  3’ 

0  15,30  SAY  ’EXIT .  4’ 

0  IS, 10  CLEAR 


0  20,28  SAY  ’ENTER  YOUR  CHOICE  »*>  ’  GET  ch  , 
PICTURE  ’9’  RANGE  1,4 
READ 
DO  CASE 

CASE  ch  =  1 
CLEAR 
SELECT  3 
GO  TOP 

DO  WHILE  .NOT.  EOF ( > 

DISPLAY  rank,  name,  spec 

DO  delayl 

SKIP. 

ENDDO* 

CASE  ch  =  2 
CLEAR 
SELECT  4 
GO  TOP 

DO  WHILE  .NOT.  ECFO 

DISPLAY  rank,  name,  spec 
DO  delayl 
SKIP 
ENDDO 

CASE  ch  =  3 
CLEAR 
SELECT  5 
GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  rank,  name,  spec 
DO  delayl 
SKIP 
ENDDO 

CASE  ch  =  4 

STORE  .T.  TO  fin 

ENDCASE 

CLEAR 
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IF  .NOT.  fin 

STORE  ’  ’  TO  res 

00,13  SAY  *00  YOU  WANT  TO  SEE  ANY  ONE  OF  THE’ 

»  21, IS  SAY  ’  SHIFTS  AGA IN?  tY/N)  ==> *  GET  rs: 

READ 

IF  UPPER (res)  #  ’  r 
STORE  .  T.  TO  fir. 

END  IF 
END  IF 
ENDDO 
END  IF 

*  update  SPY  file 
SELECT  1 
GO  TCP 

LOCATE  FOR  password  =  psw 
SELECT  2 
APPEND  BLANK 
REPLACE  date  WITH  DATE ( ) 

REPLACE  time  WITH  TIMEO 

REPLACE  username  WITH  A— >  username 

REPLACE  jobdescr  WITH  ’ALLOCATION’ 

REPLACE  progname  WITH  ’ SHIFTS’ 

CLEAR 

CLOSE  DATABASES 
DELETE  FILE  tmpshirt.dbr 
DELETE  FILE  tmpsh i ft . ndx 
RETURN 
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0.  PROGRAMS  PRODUCING  THE  REQUIRED  LISTS 


PROGRAM  REPORTER 

*  displays  on  tMe  screen  or  prints 

*  a  number  of  lists  according  to 

*  user’ s  requests 

CLEAR 

STORE  . F.  TO  stop 

PUBLIC  rcode 

DO  WHILE  .NOT.  stop 
DO  submenu4 
DO  CASE 

CASE  rcode  =  0 
RETURN 

CASE  rcode  =  1 
DO  listl 
CASE  rcode  =  2 
DO  list  2 
CASE  rcode  =  3 
DO  list3 
CASE  rcode  =»  4 
DO  1 ist4 
CASE  rcode  =  5 
DO  lists 
CASE  rcode  =  S 
DO  lists 
CASE  rcode  =  7 
DO  1 ist7 
CASE  rcode  =  Q 
DO  lists 
CASE  rcode  =  3 
DO  lists 

ENDCASE 

ENDDO 

RETURN 


***  PROGRAM  SUBMENUS 
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SET  COLOR  TO 


MENU . 

IN  SOME  ORDER  . 

REQUESTED  INFO  OF  CREW  . 

CREW  OF  A  REQUESTED  DEPARTMENT. 

CREW  OF  A  REQUESTED  SUBDEPARTMEN 
CREW  ALLOCATED  INTO  2  SHIFTS  . 

CREW  ALLOCATED  INTO  3  SHIFTS  . 
ORGANIZATION  DURING  SURFACE  ALERT 
ORGANIZATION  DURING  AIR  ALERT  ... 
ORGANIZATION  DURING  GENERAL  ALERT 
HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM>ii’l 
W+ 


o 


0  £1,26  SAY  ’ENTER  YOUR  SELECTION  ==>  * 
GET  rcode  PICTURE  ’9’  RANGE  0,9 


READ 

SET  COLOR  TO  W 
RETURN 
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***•  PROGRAM  LIST 1 


CLEAR 


USE  crewmemb 

INDEX  ON  rank  TO  crewmemb 
DC  screenE 

@  9,  £9  SAY  ’AUXILIARY  FILE  CREATION’ 

STORE  . T.  TO  again 

SELECT  1 

USE  ranks 

SELECT  2 

USE  specialt 

SELECT  3 

USE  ordcrew 

GO  TOP 

DELETE  NEXT  100 
PACK 

SELECT  4 

USE  crewmemb  INDEX  crewmemb 
GO  TOP 

DO  WHILE  again 
IF  EOF ( ) 

••  STORE  .  F.  TO  again 
ELSE 

SELECT  1 
GO  TOP 

LOCATE  FOR  rankcode  =  D->  rank 


SELECT  £ 

GO  TOP 

LOCATE  FOR  speccode 
SELECT  3 
APPEND  BLANK 
REPLACE  ser no  W I TH 
REPLACE  name  WITH 
REPLACE  indate  WITH 
REPLACE  outdate  WITH 
REPLACE  rank  WITH 
REPLACE  spec  W I TH 
SELECT  4 
SKIP 
END  IF 
ENDDO 

STORE  . F.  TO  printer 
STORE  ’  ’  TO  ans 
CLOSE  DATABASES 
DELETE  FILE  crewmemb. ndx 


D->  spec 


D->  serno 
D— >  name 
D— > indate 
D— >  outdat  e 
A— >  ranknarne 
B— >  specname 
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DO  WHILE  UPPER  Cans)  #  ’  N’ 

SELECT  3 
USE  or d crew 
STORE  .F.  TO  a 
STORE  .F.  TO  b 
STORE  .F.  TO  c 
STORE  .F.  TO  d 
DO  screens 

0  9,34  SPY  ’YOUR  CHOICE’ 

0  12, £8  SPY  ’ LIST <S)  ON  SCREEN  :  1’ 

9  13,28  SPY  ’ LIST (S)  ON  PRINTER  s  2’ 

9  18,23  CLEPR 
STORE  0  TO  resp 

0  20,28  SPY  ’ENTER  YOUR  CHOICE  ==>  ’  SET  resp  , 

PICTURE  ’9’  RPNGE  1,2 

REPD 

IF  resp  =  2 

STORE  . T.  TO  printer 


0  20,28  SPY  ’PUT  YOUR  PRINTER  ON  ’ 
DO  delay 
END  IF 

9  12,28  SPY  ’SORTED  ON  NPMES  :  1’ 

9  13, 28  SPY  ’SORTED  ON  RPNKS  :  2’ 

9  14,28  SPY  ’SORTED  ON  INDPTE  :  3’ 

0  15, 28  SPY  ’ SORTED  ON  OUTDPTE  :  4’ 

0  18,23  CLEPR 
STORE  0  TO  resp 


0  20,28  SPY  ’ENTER  YOUR  CHOICE  »«> ’  ’  SET  resp  , 

PICTURE  ’9’  RPNGE  1,4 

REPD 

IF  resp  =  1 

STORE  .T.  TO  a 
INDEX  ON  name  TO  ordcrew 
ELSE 

IF  resp  =  2 

STORE  .T.  TO  b 
ELSE 

IF  resp  =3 

STORE  .  T.  TO  c 
INDEX  ON  indate  TO  ordcrew 
ELSE 

IF  resp  =  4 

STORE  .T.  TO  d 
INDEX  ON  out date  TO  ordcrew 
END  IF 
END  IF 
END  IF 
END  IF 
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SELECT  3 
IF  printer 

SET  PRINT  ON 
IF  a 

REPORT  FORM  1st  la 
ELSE 

IF  b 

REPORT  FORM  1st  lb 
ELSE 

IF  c 

REPORT  FORM  lstlc 
ELSE 

IF  d 

REPORT  FORM  1st  Id 
END  IF 
END  IF 
END  IF 
END  IF 

SET  PRINT  OFF 
ELSE 

CLEAR 
GO  TOP 
•  IF  a 

DO  WHILE  .NOT.  EOFO 

DISPLAY  name,  rank, spec 
DO  delayl 
SKIP 
ENDDO 
ELSE 

IF  b 

DO  WHILE  .NOT.  EOFO 

DISPLAY  rank,  spec,  name 
DO  delayl 
SKIP 
ENDDO 
ELSE 

IF  c 

DO  WHILE  .NOT.  EOFO 

DISPLAY  indate,  name,  rank, 
DO  delayl 
SKIP 
ENDDO 


spec 
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ELSE 
IF  d 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  outdate,  name,  rank,  spec 
DO  delayl 
SKIP 
ENDDO 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
CLEAR 

CLOSE  DATABASES 
IF  . NOT.  b 

DELETE  FILE  ordcrew. ndx 
END  IF 

STORE  ’  ’  TO  ansr 

@  20,28  SAY  ’DO  YOU  WANT  TO  SEE  OR  PRINT  AGAIN* 

@  21,28  SAY  ’  ONE  OF  THE  AVAILABLE  LISTS?’ 

<S>  22,28  SAY  ’ENTER  YOUR  ANSWER  (Y/N)  ==>  ’  SET  ansr 
READ 

IF  UPPER (ansr)  #  ’ Y’ 

STORE  ’N’  TO  ans 
END  IF 
ENDDO 

CLEAR 

CLOSE  DATABASES 
RETURN 
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***  PROGRAM  LISTS 


CLEAR 
SELECT  1 
USE  ranks 
SELECT  £ 

USE  spec i alt 
SELECT  3 
USE  infocrew 
DELETE  NEXT  100 
PACK 

SELECT  4 
USE  crewmemb 

INDEX  ON  name  TO  crewmemb 
GO  TOP 

DO  screens 

@  9,39  SAY  ’AYXILIARY  FILE  CREATION’ 

STORE  . T.  TO  again 
DO  WHILE  again 
IF  EOF  ( ) 

STORE  .  F.  TO  again 
ELSE 

SELECT  1 
GO  TOP 

LOCATE  FOR  rankcode  =  D->  rank 
SELECT  S 
GO  TOP 

LOCATE  FOR  speccode  =  D->  spec 
SELECT  3 
APPEND  BLANK 

REPLACE  name  WITH  D-> name 

REPLACE  rank  WITH  A-> rankname 

REPLACE  spec  WITH  B-> specname 

REPLACE  address  WITH  D-> address 

REPLACE  phone  WITH  D-> phone 

SELECT  4 
SKIP 
END  IF 
ENDDO 

STORE  .F.  TO  printer 
STORE  ’  ’  TO  ans 
DO  WHILE  UPPER (ans)  #  ’ N’ 

STORE  -F.  TO  a 
STORE  .F.  TO  b 
STORE  .F.  TO  c 
STORE  .F.  TO  d 
DO  screens 

0  9,34  SAY  ’YOUR  CHOICE’ 

0  IS,  SB  SAY  ’LIST(S)  ON  SCREEN  :  1’ 
@  13, Sfl  SAY  ’ LIST (S)  ON  PRINTER  :  S’ 
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9  IS, £3  CLEAR 
STORE  9  TO  resp 

9  30,33  SAY  ’ENTER  YOUR  CHOICE  ==>  ’  GET  resp  , 

PICTURE  ’ 9’  RANGE  1,2 

READ 

IF  resp  =  2 

STORE  .  T.  TO  printer 

9  20,28  SAY  ’PUT  YOUR  PRINTER  ON  ’ 

DO  delay 
END  IF 

9  12,28  SAY  ’NAME  AND  RANK  :  1* 

9  13,28  SAY  ’NAME  AND  PHONE  :  2’ 

9  14,28  SAY  ’NAME  AND  ADDRESS  :  3’ 

9  15,23  SAY  ’ NAME -ADDRESS-PHONE  :  4’ 

9  18,23  CLEAR. 

STORE  0  TO  resp 

9  29,28  SAY  ’ENTER  YOUR  CHOICE  ==> ’  GET  resp  , 

PICTURE  ’9’  RANGE  1,4 

READ 

IF  resp  —  1 

STORE  .T.  TO  a 
ELSE 

IF  resp  =  2 

STORE  -T.  TO  b 
ELSE 

IF  resp  =3 

STORE  .T.  TO  c 

else 

IF  resp  =  4 

STORE  .T.  TO  d 
END  IF 
END  IF 
END  IF 
END  IF 

SELECT  3 
IF  pr i nt er 

SET  PRINT  ON 
IF  a 

REPORT  FORM  lst2a 
ELSE 

IF  b 

REPORT  FORM  1st 2b 
ELSE 

IF  c 

REPORT  FORM  1st 2c 


ELSE 
IF  d 

REPORT  FORM  lst2d 
END  IF 
END  IF 
END  IF 
END  IF 

SET  PRINT  OFF 
ELSE 

CLEAR 
GO  TOP 
IF  a 

DO  WHILE  .NOT.  EOFO 

DISPLAY  name,  rank,  spec 
DO  deiayl 
SKIP 
ENDDO 
ELSE 

IF  b 

DO  WHILE  -NOT.  EOFO 
DISPLAY  name,  phone 
DO  deiayl 
SKIP 
ENDDO 

ELSE  ' 

IF  c 

DO. WHILE  .NOT.  EOFO 

DISPLAY  name,  address 
DO  deiayl 
SKIP 
ENDDO 
ELSE 

IF  d 

DO  WHILE  .NOT.  EOFO 

DISPLAY  name,  address,  phone 
DO  deiayl 
SKIP 
ENDDO 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
CLEAR 

STORE  ’  »  TO  ansr 

0  20,28  SAY  ’DO  YOU  WANT  TO  SEE  OR  PRINT  AGAIN’ 

@  21,28  SAY  ’  ONE  OF  THE  AVAILABLE  LISTS?’ 

@  22,28  SAY  ’ENTER  YOUR  ANSWER  (Y/N)  *=> ’  GET  ansr 
READ 
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I 


IF  UPPER  (ansi*)  #  *Y» 

STORE  »N»  TO  an* 

END  IF 
ENDOO 

CLEAR 

CLOSE  DATABASES 
DELETE  FILE  crmMMb.  ndx 

I  RETURN  1 


r 


***  PROGRAM  LIST3 


CLEAR 

DO  screen£ 

0  9,  £9  SAY  ’AUXILIARY  FILE  CREATION’ 

SELECT  1 

USE  ranks 

SELECT  S 

USE  specialt 

SELECT  3 

USE  deplst 

DELETE  NEXT  100 

PACK 

SELECT  4 
USE  subdeptn 
SELECT  S 
USE  depart rn 
SELECT  6 
USE  crewmemb 

INDEX  ON  rank  TO  crewmemb 
GO  TOP 

STORE  .  T.  TO  again 
DO  WHILE  again 
IF  EOF ( ) 

STORE  .F.  TO  again 
ELSE 

STORE  ’  ’  TO  tdpname 

SELECT  1 

LOCATE  FOR  rankcode  *  F->  rank 
SELECT  a 
GO  TOP 

LOCATE  FOR  speccode  =  F->  spec 
SELECT  4 
GO  TOP 

LOCATE  FOR  subdpcode  *  B— >  subdpcode 
SELECT  5 
GO  TOP 

LOCATE  FOR  depcode  *  D— > depcode 
IF  EOF ( ) 

STORE  ’  DECK’  TO  tdpname 
END  IF 
SELECT  3 
APPEND  BLANK 

REPLACE  serno  WITH  F— ) serno 
REPLACE  name  WITH  F— > name 
REPLACE  rankname  WITH  A— > rankname 
REPLACE  specname  WITH  B— > spec name 
IF  tdpname  *  ’  ’ 

REPLACE  depname  WITH  E-> depname 
ELSE 

REPLACE  depname  WITH  tdpname 
END  IF 
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SELECT  6 
SKIP 
END  IF 
ENDDO 

STORE  . F.  TO  printer 
STORE  ’  ’  TO  ans 

DO  WHILE  UPPER ( ans)  #  ’ N’ 

SELECT  3 
GO  TOP 

STORE  .F.  TO  a 
STORE  .F.  .TO  b 
DO  screen^ 

9  9,34  SPY  ’YOUR  CHOICE’ 

9  12,28  SPY  ’ LIST  <S>  ON  SCREEN  :  1’ 

9  13,28  SPY  ’ LIST ( S )  ON  PRINTER  :  2’ 

0  IS,  23  CLEPR 
STORE  0  TO  resp 

9  20,23  SPY  ’ENTER  YOUR  CHOICE  ==> ’  GET  resp  , 

PICTURE  ’9’  RPNGE  1,2 

REPD 

IF  resp  =  2 

STORE  . T.  TO  printer 

9  20,23  SPY  ’PUT  YOUR  PRINTER  ON  ’ 

DO  delay 
END  IF 

9  12,28  SPY  ’DECK  DEPERTMENT  ;  1’ 

9  13,28  SPY  ’  i*.PCHINE  DEPPRTMENT  :  2’ 

9  18,23  CLEPR 
STORE  0  TO  resp 

9  20,28  SPY  ’ENTER  YOUR  CHOICE  ==>  ’  GET  resp  , 

PICTURE  ’9’  RPNGE  1,2 

REPD 

IF  resp  =  1 

STORE  . T.  TO  a 
ELSE 

STORE  .  T.  TO  b 
END  IF 

IF  printer 

SET  PRINT  ON 

IF  a 

REPORT  FORM  lst3  FOR  depname  =  ’DECK 
ELSE 

REPORT  FORM  Ist3  FOR  depname  =  ’ MPCHINE 
END  IF 

SET  PRINT  OFF 
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T 


ELSE 

CLEAR 
GO  TOP 
IF  a 

DO  WHILE  .NOT.  EOF  ( )  anername,  depiciair.e 

DISPLAY  serfio,  narnet  P 

FOR  depnarue  *  ’  DECK 
ENDDO 

ELSE  , . 

DO  WHILE  .NOT.  EOF  O  eoecriame,  depmarne 

DISPLAY  serro,  name,  rarikriame,  P 

FOR  depname  **  ’MACHINE 
ENDDO 
END  IF 
END  IF 
DO  delay 
CLEAR 


STORE  ’  ’  TO 
C-  20,28  SAY  ’ 
@  £1,28  SAY  ’ 
@  .22, 28  SAY  ’ 


0*YOU  WANT  TO  SEE  OR  PRINT  AGAIN’ 

ONE  OF  THE  AVAILABLE  LIoTo. 

NTER  YOUR  ANSWER  <Y/N)  **>’  GET  ar,s* 


READ 

IF  UPPER(ans»~)  #  ’  Y’ 
STORE  ’ N’  TO  ans 


END  IF 
ENDDO 


CLEAR 

CLOSE  DATABASES 
RETURN 


4 


\ 


J 


J 


132 


***  PROGRAM 


CLEAR 

CO  scrsen2 

@  9,29  SAY  ’AUXILIARY  FILE  CREATION’ 

SELECT  1 

USE  ranks 

SELECT  2 

USE  sped  alt 

SELECT  3 

USE  sdeplst 

DELETE  NEXT  100 

PACK 

SELECT  4 
USE  subdeptn 
SELECT  5 
USE  crewrnem b 

INDEX  ON  rank  TO  crewmemb 
GO  TOP 

STORE  ■ T.  TO  again 
DO  WHILE  again 
IF  EOF ( ) 

STORE  .  F.  TO  again 
ELSE 

SELECT  1 

LOCATE  FOR  rankcode  »  E->  rank 
SELECT  2 
GO  TOP 

LOCATE  FOR  speccode  =  E— >  spec 
SELECT  4 
GO  TOP 

LOCATE  FOR  subdpcode  =  B-> subdpcode 
SELECT  3 
APPEND  BLANK 

REPLACE  serno  WITH  E->  serr.o 
REPLACE  name  WITH  E— > name 
REPLACE  ranknarne  WITH  A—  >  ranknarne 
REPLACE  specname  WITH  B— >specname 
REPLACE  sdpname  WITH  D-> sdpname 
SELECT  5 
SKIP 
END  IF 
ENDDO 

STORE  . F.  TO  printer 
STORE  ’  ’  TO  ans 
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DO  WHILE  UPPER (ans)  #  ’ N’ 

SELECT  3 
GO  TCP 

STORE  . F.  TO  deck 
STORE  .  F.  TO  ritach  i  ne 
DO  screens 

I?  9,34  SAY  ’YOUR  CHOICE’ 

9  12, £8  SAY  ’ LIST (S)  ON  SCREEN  :  1’ 

®  13, £8  SAY  ’ LIST (S)  ON  PRINTER  :  £’ 

@  lfl, £3  CLEAR 
STORE  0  TO  resp 

I?  £0,28  SAY  ’ENTER  YOUR  CHOICE  ==>  ’  GET  resp  , 

PICTURE  ’9’  RANGE  1,2 

READ 

IF  resp  =  2 

STORE  .  T.  TO  printer 

9  £0, £8  SAY  ’PUT  YOUR  PRINTER  ON  ’ 

DO  delay 
END  IF 

9  l£, £8  SAY  ’DECK  DEPERTMENT  :  1* 

9  13,28  SAY  ’MACHINE  DEPARTMENT  :  £’ 
i?  18,23  CLEAR 
STORE  0  TO  answr 

9  £0,28  SAY  ’ENTER  YOUR  CHOICE  ==>  ’  GET  answr  , 

PICTURE  ’9’  RANGE  1,2 

READ 


IF  answr  -  1 

STORE  .  T.  TO  deck 
STORE  O  TO  pref 

9  11,28  SAY  ’ADMINISTRATION  .  1’ 

i?  12,28  SAY  ’COMBAT  INFORM .  £’ 

i?  13,28  SAY  ’COMMUNICATION .  3’ 

9  14,28  SAY  ’NAVIGATION  .  4’ 

9  15,28  SAY  ’WEAPONS .  5’ 

9  18,  £3  CLEAR  ’ 

I?  20,28  SAY  ’ENTER  YOUR  CHOICE  ==>  ’  GET  pref  , 
PICTURE  ’9’  RANGE  1,5 
READ 
ELSE 

STORE  0  TO  pref 

9  11,28  SAY  ’DAMAGE  CONTROL  .  1’ 

9  12,28  SAY  ’ELECTRIC  INSTAL  .  2’ 

9  13,28  SAY  ’ELECTRON  EQUIPT  .  3’ 

9  14,28  SAY  ’MAIN  ENGINES .  4’ 

9  15,28  SAY  ’SPARE  PARTS  .  5’ 

9  18,23  CLEAR  ’ 

<?  20,28  SAY  ’ENTER  YOUR  CHOICE  ==>  ’  GET  pref  , 
PICTURE  ’9’  RANGE  1,5 
READ 
END  IF 
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IF  printer 

SET  PRINT  ON 
IF  deck 

DO  CASE 

CASE  pref  =  1 

SET  PRINT  OF 
SET  COLOR  TO  W* 

@  9, 34  SAY  ’ **  SORRY  **’ 

SET  COLOR  TO  U 

@  11,26  SAY  *  ’ 

i s>  12,26  SAY  ’I  CANNOT  PROVIDE  YOU  THIS  LIST" 

@  13,26  SAY  ’  THIS  SUBDEPARTMENT  MUST  BE  ’ 

@  1%26  SAY  ’  MANNED  MANUALLY 

@  15,26  SAY  ’ 

DO  delay2 
CASE  pref  =  2 

REPORT  FORM  lst4  FOR  sdpname  =’ COMBAT  INFO  ’ 
SET  PRINT  OFF 
CASE  pref  =  3 

REPORT  FORM  lst4  FOR  sdpname*' COMMUNICATIONS’ 
SET  PRINT  OFF 
CASE  pref  —  4 

REPORT  FORM  Ist4  FOR  sdpname  =  ’NAVIGATION  ' 
SET  PRINT  OFF 
CASE  pref  =  5 

REPORT  FORM  1st 4  FOR  sdpname  =  ’ WEAPONS 
SET  PRINT  OFF 

ENDCASE 

ELSE 

DO  CASE 

CASE  pref  =  1 

SET  PRINT  OFF 
SET  COLOR  TO  W* 

@  9, 34  SAY  ’ **■  SORRY  *•*’ 

SET  COLOR  TO  W 
l?  11,26  SAY  ’ 

@  12,26  SAY  ’I  CANNOT  PROVIDE  YOU  THIS  LIST’ 

I?  13,26  SAY  ’  THIS  SUBDEPARTMENT  MUST  33  ’ 

@  14,26  SAY  *  MANNED  MANUALLY 

DO  delay2 
CASE  pref  =  2 

REPORT  FORM  lst4  FOR  sdpname*’ ELECTR.  INSTAL' 
SET  PRINT  OFF 
CASE  pref  =  3 

REPORT  FORM  lst4  FOR  sdpname*’ ELECTR.  EQUIPM’ 
SET  PRINT  OFF 
CASE  pref  =  4 

REPORT  FORM  lst4  FOR  sdpname*’ MAIN  ENGINES  ' 
SET  PRINT  OFF 
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CASE  pref  =  S 

SET  PR IN  OFF 
SET  COLOR  TO  W* 

@  9, 34  SAY  ’  **  SORRY  **’ 

SET  COLOR  TO  W 
@  11,26  SAY  ’ 

@  12,26  SAY  ’I  CANNOT  PROVIDE  YOU  THIS  LIS 
l?  13,26  SAY  ’  THIS  SUBDEPARTMENT  MUST  BE 
@  14,26  SAY  ’  MANNED  MANUALLY 

@  15,26  SAY  ’ 

DO  delay2 

ENDCASE 
END  IF 
ELSE 

CLEAR 
GO  TOP 
IF  deck 
DO  CASE 

CASE  pref  =  1 

DO  screens 
SET  COLOR  TO  W* 

1?  9,  34  SAY  ’  **  SORRY  **’ 

SET  COLOR  TO  W 
@11,26  SAY  ’ 

@  12,26  SAY  ’I  CANNOT  PROVIDE  YOU  THIS  LIS 
@  13,26  SAY  ’  THIS  SUBDEPARTMENT  MUST  BE 
@  14,26  SAY  ’  MANNED  MANUALLY 

@  15,26  SAY  ’ 

DO  delay2 
CLEAR 

CASE  pref  =  2 

DO  WHILE  .NOT.  EOF O 

DISPLAY  name,  rankname,  specname,  sdpr.arns  . 

FOR  sdpname  =  ’COMBAT  INFO  ’ 

ENDDO 

CASE  pref  =  3 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  name,  rankname,  specnarne,  sdpname  . 

FOR  sdpname  =  ’COMMUNICATIONS  ’ 

ENDDO 

CASE  pref  =  4 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  name, rankname, specnarne, sdpname  , 

FOR  sdpname  =  ’NAVIGATION  ’ 

ENDDO 

CASE  pref  =  5 

DO  WHILE  .NOT.  EOF O 

DISPLAY  name,  rankname,  specnarne,  sdpname  , 

FOR  sdpname  =  ’ WEAPONS  ’ 

ENDDO 

ENDCASE 
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ELSE 

DO  CASE 

CASE  pref  =  1 

DO  screens 
SET  COLOR  TO  W* 

9  S,  34  SAV  ’  **  SORRY  *•*’ 

SET  COLOR  TO  W 
.  9  11,26  SAY  ’ 

9  12,26  SAY  ’I  CANNOT  PROVIDE  YOU  THIS  LIST 
*  13,26  SAY  ’  THIS  SUBDEPARTMENT  MUST  BE 
®  14,26  SAY  ’  MANNED  MANUALLY 

9  15,26  SAY  » 

DO  delay2 
CLEAR 

CASE  pref  =  2 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  name,  ranknarne,  specnarne,  sdonarne  , 
FOR  sdpname  =  ’ELECTRIC  INSTAL’ 

ENDDO 

CASE  pref  =  3 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  name, ranknarne, specnarne, sdpname  , 
POR  sdpname  =  ’ELECTRON  EQUIPM’ 

ENDDO 

CASE  pref  =  4 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  name,  ranknarne,  specnarne,  sdpname  , 
FOR  sdpname  *  ’MAIN  ENGINES  ’ 

ENDDO 

CASE  pref  =  5 

DO  screens 
SET  COLOR  TO  W* 

@  9, 34  SAY  ’  **  SORRY  *-*’ 

SET  COLOR  TO  W 

@  11,26  SAY  ’  , 

®  12,26  SAY  ’I  CANNOT  P'RQVIDE  YOU  THIS  LIST' 
®  13,26  SAY  ’  THIS  SUBDEPARTMENT  MUST  BE 
®  14,26  SAY  ’  MANNED  MANUALLY 

9  15,26  SAY  ’ 

DO  delays 

ENDCASE 
END  IF 
END  IF 

STORE  ’  ’  TO  ansr 

®  2®, 28  SAY  ’DO  YCU  WANT  TO  SEE  OR  PRINT  AGAIN’ 

9  21,28  SAY  ’  ONE  OF  THE  AVAILABLE  LISTS?’ 

*  22,28  SAY  ’ENTER  YOUR  ANSWER  <Y/N>  ==> *  GET  ansr 
READ 

IF  UPPER (ansr)  #  ’ Y’ 

STORE  ’N’  TO  ans 
END  IF 
ENDDO 
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CLEAR 

CLOSE  DATABASES 

DELETE  FILE  cr»Mnicmb.  ndx 

RETURN 


***  PROGRAM  LIST5 


CLEAR 

STORE  . F.  TO  a 
STORE  . F.  TO  b 
STORE  . F.  TO  printer 
SELECT  1 
USE  shift£a 
SELECT  £ 

USE  shiftEb 
SELECT  3 
USE  ranks 
select  4 
USE  specialt 
SELECT  5 
USE  shi ft  1st 
DELETE  NEXT  100 
PACK 

STORE  ’  ’  TO  ans 
DO  WHILE  UPPER (ans)  #  ’  N’ 
DO  screen£ 


9  9,  34  SAY  ’ YOUR  CHOICE’ 

9-12,  £S  SAY  ’  LIST  (S)  ON  SCREEN  :  1’ 

9  13, 28  SAY  *  LIST (S)  ON  PRINTER  :  £’ 

9  18,23  CLEAR 
STORE  0  TO  resp 

9  20,28  SAY  ’ENTER  YOUR  CHOICE  **> ’  GET 

PICTURE  ’ 9’  RANGE  1,2 

READ 

IF  resp  =  2 

STORE  .T.  TO  printer 

9  £0,28  SAY  ’PUT  YOUR  PRINTER  ON  ’ 
DO  delay 
END  IF 


9  12,28  SAY  ’ 

9  13,28  SAY  ’ 

9  12,30  SAY  ’SHIFT  A . 

9  13,30  SAY  ’SHIFT  B . 

9  14,30  SAY  ’SHIFT  A  AND  B  _ 

9  15,30  SAY  ’EXIT  . 

9  18,23  CLEAR 

STORE  0  TO  resp 

9  £0,28  SAY  ’ENTER  YOUR  CHOICE 

PICTURE  ’9’  RANGE  1,4 

READ 


DO  CASE 

CASE 

resp  = 

1 

STORE  . 

T. 

TO 

a 

STORE  . 

F. 

TO 

b 

CASE 

resp  = 

2 

STORE  . 

F. 

TO 

a 

STORE  . 

T. 

TO 

b 

1’ 

2’ 

3’ 

4’ 


» 

» 


GET 


resp  , 


resp  , 
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CASE  resp  =  3 

STORE  .T.  TO  a 
STORE  . T.  TO  b 

ENDCASE 
IF  resp  #  4 

®  9, £5  SAY  ’ 

®  10, 25  SAY  ’ 

@  11,25  SAY  ’ 

@  12,25  SAY  ’ 

@  13,25  SAY  ’ 

@  14,25  SAY  ’ 

@  15,25  SAY  ’ 


IF  a 

SELECT  1 
SO  TOP 

STORE  . T.  TO  again 
00  WHILE  again 
IF  EOF ( ) 

STORE  .F.  TO  again 
ELSE 

SET  COLOR  TO  W* 

@  12,25  SAY  »  PROCESSING  IN  PROGRESS’ 

SET  COLOR  TO  W 
SELECT  3 
GO  TOP 

LOCATE  FOR  rankcode  =  A— >  rank 
SELECT  4 
GO  TOP 

LOCATE  FOR  speccode  =  A->  spec 
SELECT  5 
APPEND  BLANK 

REPLACE  rank  WITH  C— > rankname 
REPLACE  name  WITH  A— > name 
REPLACE  spec  WITH  D— > specname 
SELECT  1 
SKIP 
END  IF 
ENDDO 
CLEAR 
SELECT  5 
IF  printer 

SET  PRINT  ON 
REPORT  FORM  lshift2a 
SET  PRINT  OFF 
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ELSE 

GO  TOP 

DO  WHILE  .NOT.  EOF ( > 

DISPLAY  name,  rank,  spec 
DO  delayl 
SKIP 
ENDDO 
END  IF 
END  IF 
CLEAR 
GO  TOP 

DELETE  NEXT  100 
PACK 

IF  b 

DO  screens 

@  10,25  SAY  ’  ’ 

SELECT  2 
GO  TOP 

STORE  . T.  TO  again 
DO  WHILE  again 
IF  EOF ( > 

STORE  .F.  TO  again 
ELSE 

SET  COLOR  TO  W* 

tt<  12,25  SAY  ’  PROCESSING  IN  PROGRESS 
SET  COLOR  TO  W 
SELECT  3 
GO  TOP 

LOCATE  FOR  rankcode  =  B->  rank 
SELECT  4 
GO  TOP 

LOCATE  FOR  speccode  =  B— >  spec 
SELECT  5 
APPEND  BLANK 

REPLACE  rank  WITH  C->  ranknarne 
REPLACE  name  WITH  B->name 
REPLACE  spec  WITH  D— > specname 
SELECT  2 
SKIP 
ENDIF 
ENDDO 
CLEAR 
SELECT  5 
GO  TOP 
IF  printer 

SET  PRINT  ON 
REPORT  FORM  IshiftSb 
SET  PRINT  OFF 


»* 
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ELSE 

GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  name,  rank,  spec 
DO  delayl 
SKIP 
ENDDO 
END  IF 
END  IF 
CLEAR 
GO  TOP 

DELETE  NEXT  130 
PACK 

STORE  ’  ’  TO  artsr 

®  £0, 28  SAY  ’DO  YOU  NEED  WORE  OF  THE  ABOVE’ 

0  £1,28  SAY  ’  AVAILABLE  LISTS?’ 

@  ££,£8  SAY  ’ENTER  YOUR  ANSWER  (Y/N)  ==> ’  GET 
READ 

IF  UPPER (ansr)  #  ’ Y’ 

STORE  ’N’  TO  ans 
END  IF 
ELSE 

STORE  ’N’  TO  ans 
END  IF 
ENDDO 

CLEAR 

CLOSE  DATABASES 
RETURN 


ansn 


142 


***  PROGRAM  LISTS 


CLEAR 

STORE  . F.  TO  a 
STORE  . F.  TO  b 
STORE  -F.  TO  c 
STORE  .F.  TO  printer 
1  SELECT  1 

USE  shift 3a 
SELECT  £ 

USE  shiftSb 
M  SELECT  3 

k  USE  shi ft 3c 

t  SELECT  4 

USE  ranks 
select  5 
USE  spec i alt 
SELECT  & 

USE  shi ft  1st 
DELETE  NEXT  100 
PACK 

STORE  ’  ’  TO  ans 

DO  WHILE  UPPER (ans)  #  ’  N* 

DO  screens 

0  9,34  SAY  ’YOUR  CHOICE’ 

0  12,28  SAY  ’  LIST  (S)  ON  SCREEN  :  1’ 

0  13,28  SAY  *  LIST  (S)  ON  PRINTER  s  2’ 

$  18,23  CLEAR 
STORE  0  TO  resp 

i a  £0,£8  SAY  ’ENTER  YOUR  CHOICE  ==> ’  GET  resp  , 

PICTURE  ’9’  RANGE  1,2 

READ 

IF  resp  =  2 

STORE  .T.  TO  printer 

0  20,28  SAY  ’PUT  YOUR  PRINTER  CN  ’ 

DO  delay 
END  IF 

0  12,23  SAY  ’  ’ 

0  13,28  SAY  ’  ’ 

@  12,30  SAY  ’SHIFT  A .  1’ 

0  13,30  SAY  ’SHIFT  B .  S’ 

@  14,30  SAY  ’SHIFT  C .  3’ 

@  15,30  SAY  ’EXIT .  4’ 

0  18,23  CLEAR 
STORE  0  TO  resp 

0  20,28  SAY  ’ENTER  YOUR  CHOICE  ==>  ’  GET  resp  , 

PICTURE  ’9’  RANGE  1,4 

READ 
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DQ  CASE 

CASE  resp  =  1 
STORE  . T. 
STORE  . F. 
STORE  . F. 
CASE  resp  =  £ 
STORE  .F. 
STORE  . T. 
STORE  .F. 
CASE  resp  =  3 
STORE  .F. 
STORE  .  F. 
STORE  . T. 

ENDCASE 
IF  resp  #  4 

iS  9,25  SAY  ’ 
i«  10,25  SAY  ’ 
iS  11,25  SAY  ’ 
iS  12,  25  SAY  ’ 

IS  13,25  SAY  ’ 

@  14,25  SAY  ’ 

C-  15,25  SAY  ’ 


SELECT  1 
GO  TOP 

STORE  .T.  TO  again 
DO  WHILE  again 
IF  EOF  < ) 

STORE  .F.  TO  again 
ELSE 

SET  COLOR  TO  W* 

<S  12,25  SAY  ’  PROCESSING  IN 

SET  COLOR  TO  W 
SELECT  4 
GO  TOP 

LOCATE  FOR  rankcode  =  A->  rank 
SELECT  5 
GO  TOP 

LOCATE  FOR  speccode  =  A-) spec 
SELECT  S 
APPEND  BLANK 

REPLACE  rank  WITH  D-) ranknarae 
REPLACE  name  WITH  A- > name 
REPLACE  spec  WITH  E-> specname 
SELECT  1 
SKIP 
END  IF 
ENDDO 
CLEAR 
SELECT  6 


TO  a 
TO  b 
TO  c 

TO  a 
TO  b 
TO  c 

TO  a 
TO  b 
TO  c 


PROGRESS* 
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IF  printer 

SET  PRINT  ON 
REPORT  FORM  lshift3a 
SET  PRINT  OFF 
ELSE 

GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  name,  rank,  spec 
DO  delayl 
SKIP 
ENDDO 
END  IF 
END  IF 
CLEAR 
GO  TOP 

DELETE  NEXT  1012 
PACK 

IF  b 

DO  screens 

@  10, 25  SAY  ’  » 

SELECT  2 
GO  TOP 

STORE  .T.  TO  again 
DO  WHILE  again 
IF  EOF  < ) 

STORE  .  F.  TO  again 
ELSE 

SET  COLOR  TO  W* 

C-  12,25  SAY  ’  PROCESSING  IN  PROGRESS’ 
SET  COLOR  TO  W 
SELECT  A 
GO  TOP 

LOCATE  FOR  rankcode  =  B— >  rank 
SELECT  5 
GO  TOP 

LOCATE  FOR  speccode  =  B->  spec 
SELECT  £ 

APPEND  BLANK 

REPLACE  rank  WITH  D— > rankname 
REPLACE  name  WITH  B— > name 
REPLACE  spec  WITH  E— >specname 
SELECT  2 
SKIP 
END  IF 
ENDDO 
CLEAR 
SELECT  6 
GO  TOP 
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It-  printer 

SET  PRINT  ON 
REPORT  FORM  lshift3b 
SET  PRINT  OFF 
ELSE 

GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  name,  rank,  spec 
DO  del ay 1 
SKIP 
ENDDO 
END  IF 
END  IF 
CLEAR 
GO  TOP 

DELETE  NEXT  130 
PACK 

IF  c 

DO  screen^ 

9  10,25  SAY  ’  ’ 

SELECT  3 
GO  TOP 

STORE  . T.  TO  again 
DO  WHILE  again 
IF  EOF ( > 

STORE  .F.  TO  again 
ELSE 

SET  COLOR  TO  W* 

@  12,25  SAY  ’  PROCESSING  IN  PROGRESS’ 
SET  COLOR  TO  W 
SELECT  4 
GO  TOP 

LOCATE  FOR  rankcode  *  C->  rank 
SELECT  5 
GO  TOP 

LOCATE  FOR  speccode  =  C->  spec 
SELECT  6 
APPEND  BLANK 

REPLACE  rank  WITH  D— >  rankname 
REPLACE  name  WITH  C— > name 
REPLACE  spec  WITH  E— > specname 
SELECT  3 
SKIP 
END  IF 
ENDDO 
CLEAR 
SELECT  & 

GO  TOP 
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n  n 


IF  printer 

SET  PRINT  ON 
REPORT  FORM  IshiftSc 
ELSE 

GO  TOP 

DO  WHILE  .NOT.  EOF O 

DISPLAY  name,  rank,  spec 
DO  delayl 
SKIP 
ENDDO 
END  IF 
END  IF 
CLEAR 
GO  TOP 

DELETE  NEXT  100 
PACK 

STORE  ’  1  TO  ansr 

C»  SO,  28  SAY  ’  DO  YOU  NEED  MORE  OF  THE  ABOVE’ 

@  21, 28  SAY  ’  AVAILABLE  LISTS?’ 

0  22,28  SAY  ’ENTER  YOUR  ANSWER  (Y/N)  ==>  ’  GET  ansr 
READ 

.  IF  UPPER (ansr)  #  ’  Y’ 

STORE  ’N’  TO  ans 
END  IF 
ELSE 

STORE  ’N’  TO  ans 
END  IF 
ENDDO 


LEAR 

LOSE  DATABASES 
RETURN 


***  PROGRAM  LIST7 


CLEAR 

STORE  .  F.  TO  printer 
SELECT  1 
USE  ranks 
select  £ 

USE  sped  alt 
SELECT  3 
USE  salert 
SELECT  4 
USE  alert  1st 
DELETE  NEXT  100 
PACK 

STORE  ’  ’  TO  ans 
DC  WHILE  UPPER (ans)  #  ’  N’ 

DO  screens 

0  9,34  SAY  ’YOUR  CHOICE’ 

0  12,28  SAY  ’ LIST (S)  ON  SCREEN  :  1’ 

0  13, £8  SAY  ’ LIST (S)  ON  PRINTER  :  £’ 

0  18, £3  CLEAR 
STORE  0  TO  resp 

0  -20,28  SAY  ’ENTER  YOUR  CHOICE  ==>  ’  GET  resp  , 

PICTURE  ’9’  RANGE  1,2 

READ 

IF  resp  =  £ 

STORE  . T.  TO  printer 

0  £0,28  SAY  ’PUT  YOUR  PRINTER  ON  ’ 

DO  delay 
END  IF 

0  9, 25  SAY  ’ 

0  1 0, 25  SAY  ’  ’ 

0  11,25  SAY  ’ 

0  12,25  SAY  ’  ’ 

0  13,25  SAY  ’  ’ 

SET  COLOR  TO  W* 

0  12,25  SAY  ’  PROCESSING  IN  PROGRESS’ 

SET  COLOR  TO  W 
SELECT  3 
GO  TOP 

DO  WHILE  .NOT.  EOF O 
SELECT  1 
GO  TOP 

LOCATE  FOR  rankcode  =  C->  rank 
SELECT  2 
GO  TOP 

LOCATE  FOR  speccode  =  C->  spec 
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SELECT  4 
APPEND  BLANK 

REPLACE  rank  WITH  A—  /  rankname 
REPLACE  name  WITH  C-> name 
REPLACE  spec  WITH  B— >  specname 
REPLACE  descr  WITH  C->  descr 
SELECT  3 
SKIP 
ENDDO 
CLEAR 
SELECT  4 
IF  printer 

SET  PRINT  ON 

REPORT  FORM  lslrt  ■ 

SET  PRINT  OFF 
ELSE 

SO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  descr,  name,  rank,  spec 
DO  delayl 
SKIP 
ENDDO 
END  IF 
GO  TOP 

DELETE  NEXT  100 

PACK 

CLEAR 

STORE  »  ’  TO  ansr 

&  £0,  £8  SAY  ’DO  YOU  WANT  TO  SEE  OR  PRINT  THE  LIST’ 
@  £1,28  SAY  ’  AGAIN?’ 

i?  £2,  £S  SAY  ’ENTER  YOUR  ANSWER  (Y/N)  ==>  ’  GET  ansr 
READ 

IF  UPPER (ansr)  3  ’ Y’ 

STORE  ’N’  TO  ans 
END  IF 
ENDDO 


CLEAR 

CLOSE  DATABASES 
RETURN 
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***  PROGRAM  LISTS 


CLEAR 

STORE  .F.  TO  printer 

SELECT  1 

USE  ranks 

se 1 ect  2 

USE  sped  alt 

SELECT  3 

USE  aalert 

SELECT  4 

USE  alert  1st 

DELETE  NEXT  1O0 

PACK 

STORE  ’  ’  TO  ans 
DO  WHILE  UPPER (ans)  *  ’  N’ 

DO  screen^ 

i S  9,34  SAY  ’YOUR  CHOICE’ 

9  12,28  SAY  1  LIST (S)  ON  SCREEN  :  i’ 
a  13,28  SAY  ’ LIST (S>  ON  PRINTER  :  2’ 
a  18, CLEAR 
STORE  0  TO  resp 

a  £0,23  SAY  ’ENTER  YOUR  CHOICE  ==>  ’  GET  resp 

PICTURE  ’9’  RANGE  1,2 

READ 

IF  renp  -  2 

STORE  .T.  TO  printer 
a  20,28  SAY  ’PUT  YOUR  PRINTER  ON 
DO  delay 
END  IF 

a  9,25  SAY  ’ 

a  10,25  SAY  ’  ’ 

a  11, 25  SAY  ’  ’ 

a  12,25  SAY  ’  ’ 

a  13, 25  SAY  ’  ’ 

SET  COLOR  TO  W* 

a  12,25  SAY  ’  PROCESSING  IN  PROGRESS’ 

SET  COLOR  TO  W 
SELECT  3 
GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

SELECT  1 
GO  TOP 

LOCATE  FOR  rankcode  =  C->  rank 
SELECT  2 
GO  TOP 

LOCATE  FOR  speccode  =  C->spec 


SELECT  4 
APPEND  BLANK 

REPLACE  rank  WITH  A— > ranknarne 
REPLACE  name  WITH  C— > name 
REPLACE  spec  WITH  B-> specname 
REPLACE  descr  WITH  C-) descr 
SELECT  3 
SKIP 
ENDDO 
CLEAR 
SELECT  4 
IF  printer 

SET  PRINT  ON 
REPORT  FORM  lain: 

SET  PRINT  OFF 
ELSE 

GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  descr,  name,  rank,  spec 
DO  delayl 
SKIP 
ENDDO 
END  IF 
GO  TOP 

DELETE  NEXT  100 

PACK 

CLEAR 

STORE  ’  ’  TO  ansr 

®  £0,2S  SAY  ’DO  YOU  WANT  TO  SEE  OR  PRINT  THE  LIST’ 
C-  £1,28  SAY  ’  AGAIN?’ 

0  ££,£8  SAY  ’ENTER  YOUR  ANSWER  (Y/N)  ==> ’  GET  ansr 
READ 

IF  UPPER (ansr)  #  ’ Y’ 

STORE  ’N’  TO  ans 
END  IF 
ENDDO 

CLEAR 

CLOSE  DATABASES 
RETURN 
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**•*  PROGRAM  LISTS 


CLEAR 

STORE  . F.  TO  printer 
SELECT  1 
USE  ranks 
select  2 
USE  specialt 
SELECT  3 
USE  galert 
SELECT  4 
USE  alert  1st 
DELETE  NEXT  100 
•  PACK 

STORE  ’  *  TO  ans 
DO  WHILE  UPPER (ans)  #  ’ N’ 

DO  screens 

9  3,34  SAY  ’YOUR  CHOICE’ 

@  12, £8  SAY  ’ LIST (S)  ON  SCREEN  :  1’ 

9  13,28  SAY  ’  LIST  (S)  ON  PRINTER  :  2’ 

9  13,23  CLEAR 
STORE  0  TO  resp 

@•■20,  £8  SAY  ’ENTER  YOUR  CHOICE  ==>  ’  GET  resp  , 

PICTURE  ’ 9’  RANGE  1,2 

READ 

IF  resp  =  2 

STORE  . T.  TO  printer 

@  20, 28  SAY  ’PUT  YOUR  PRINTER  ON  ’ 

DO  delay 
END  IF 

9  3,25  SAY  ’  , 

9  10,25  SAY  ’  , 

»  11,25  SAY  ’  , 

9  12,25  SAY  ’  , 

9  13,25  SAY  ’  , 

SET  COLOR  TO  W* 

9  12,25  SAY  ’  PROCESSING  IN  PROGRESS’ 

SET  COLOR  TO  W 
SELECT  3 
GO  TOP 

DO  WHILE  .NOT.  EOF O 
SELECT  1 
GO  TOP 

LOCATE  FOR  rankcode  =  C->  rank 
SELECT  2 
GO  TOP 

LOCATE  FOR  speccode  =  C->spec 
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SELECT  4 
APPEND  BLANK 
REPLACE  rank 
REPLACE  name 


REPLACE  spec 
REPLACE  descr 


SELECT  3 
SKIP 
ENDDO 
CLEAR 
SELECT  4 


WITH  A— >  ranknarne 
WITH  C->  name 
WITH  B-) scecnarae 
WITH  C— > descr 


IE  printer 

SET  PRINT  ON 
REPORT  FORM  igirt 
SET  PRINT  OFF 
ELSE 

30  TOP 

DO  WHILE  .NOT.  EOF  i ) 


DISPLAY  descr,  name,  rank,  spec 

DO  delayl 

SKIP 


ENDDO 
END  IF 
GO  TOP 

DELETE  NEXT  10O 
PACK 


CLEAR 

STORE  ’  ’  TO  ansr 

9  20,28  SAY  ’DO  YOU  WANT  TO  SEE  OR  PRINT  THE  LIST’ 
9  21,28  SAY  ’  AGAIN?’ 

9  22,28  SAY  ’ENTER  YOUR  ANSWER  (Y/N)  ==> ’  GET  ansr 
READ 

IF  UPPER (ansr)  #  ’ Y’ 

STORE  *N»  TO  ans 
END  IF 


ENDDO 


CLEAR 

CLOSE  DATABASES 
RETURN 


APPENDIX  B 


rage  no.  i 

'/jo  /  i  ;•’  /  ao 

uiSf  UK  CREW  fl t-Nbc.hu  BUR iED 


UN  IHUS£  NAMES 


NAME 


RANK 


-ir'Eu  i  aL  i  i  ' 


Appei  jonn  G 

bcN 1 UK 

CHieF  PU 

ENuiNEEh 

Arraout  haul  u 

SEAMAN 

UUMMlJNiCA  l  xUN 

!  .  -r 

Armstrong  David  K 

sENIuK 

CHIEF  PQ 

h  A  L<  A  K  US  Eh 

beam  Alan  K 

bEAMAN 

ENGINEER 

Siondi  Daniel  fi 

BEAMAN 

WEAPUN  LUNIhUL 

rj  y  '  j 

uavalini  Larry  K 

SEAMAN 

ENblNEEh 

Clark  Andrews  i 

BEAMAN 

WEAPUN  CUN  1  KUE 

-l  >*'.»'  '  f 

Ulark  James  D 

BEAMAN 

WEAPUN  CUNTRuU 

-  » J  J  _ 

time  William  N 

SEAMAN 

ELECTRUNIC 

-L  Iw  Vi  1  t  • 

toncon  Stepnen  j 

LIEU IENAN V 

DEUh 

WJ  /  ^  L* 

Uonaon  iim  N 

PU  1st 

CLASS 

ELEU I H1U1AN 

kJ  UJ>  *1  K  - 

bason  Alan  b 

BEAMAN 

ENblNEEh 

•* 

Emerson  Burt  F 

1st  LIEUTENANT 

DECK 

_<*.'/  '■ 

Ertle  Aaron  P 

ENSIbN 

DEuK 

/  z*k> 

Ervin  Joseph  H 

ENSIGN 

ENGINEER 

4^1/  a 

!■  lamini  Charles  D 

SEAMAN 

WEAPUN  USEK 

i-ocjei  bregory  b 

beaman 

WEAPUN  UUN 1 KUL 

yr.  t- 

uetline  Scott  B 

BEAMAN 

eeeCTR i C IAN 

-t  r*  l~> 

uorman  Dennis  H 

Pu  1st 

CLASS 

ENGINEER 

J.  u  rt  _>  x 

MoDson  Aaron  n 

pu  3rd 

CLASS 

engineer 

WJ  ’y)  i  <} 

i Dei  Keter  j 

pu  ind 

SLABS 

ELEU i KUN lu 

itWOC'  /' 

ittt  Thomas  c 

SEAMAN 

WEAPUN  USER 

^  kj  *r»  1 1: 

Isola  Mike  L 

PG  3rd 

CLASS 

WEAPUN  USER 

Z*  /  3 

Jatlee  Jay  M 

LIEUTENAN'f 

ENGINEER 

sL  V)  /  4  1 

Jeiierson  Jack  C 

ENSIbN 

DEuK 

t J 

Rett  David  g 

BEAMAN 

eLEu i R 1 u i AN 

J  r*  / 

hnuois  James  p 

BEAMAN 

ENG 1 NEER 

—  -u.  'J 

Kohn  Robert  H 

SEAMAN 

ENGINEER 

^  ‘t  3 1 j  1 

tittle  Freaenk  J 

SEAMAN 

WEAPUN  USER 

Lyon  Arthur  B 

CHIEF  P(j 

SUPPLY 

Maiion  Patrick  F 

BEAMAN 

CUMMUNiCA l 1UN 

^  i  *  .  h  -j 

Markley  Daniel  i 

SEAMAN 

NAVibA  TiUN 

1 

Martyr  Raul  J 

seaman 

ENGINEER 

McPherson  Jack  A 

BEAMAN 

CUMMUNiCA  l‘  1  UN 

--  1 

Miner  Jacj  T 

BEAMAN 

WEAPUN  USER 

Neian  James  H 

MAS  1  Eh 

CHIEF  PU 

WEAPUN  CUNIRUC 

±Vl  f  tj'-J 
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Page  No.  2 

0t>/  17/at= 

LIST  OF  CREW  MEMBERS  SORTED 


ON  THOSE  NAMES 


name 

Rank 

bPEC  1  AL  1'  i 

Newell  Peet  S 

MASTER 

CHIEF 

PO 

COMMUNiCA 1 I UN 

Nezart  Jerome  0 

CHIEF  i 

PO 

raDak  USER 

+L  -r.  ■»:  i  i 

Nezos  Fred  T 

MASTER 

chief 

PU 

ELECT  R i U 1  AN 

/  /  / 

Nicnolson  George  r 

PU  1st 

CCAbb 

NAVI bA i 1 UN 

_  VI  b  i  b 

Nikola  Michael  E 

SEAMAN 

ELECTRICIAN 

..C-JUl 

Norton  Harold  0 

PO  2nd 

CLASS 

WEAPON  USER 

cub  4  0 

Hulk  Richard  0 

SEAMAN 

WEAPUN  USER 

E 

Uualls  Terry  U 

SEAMAN 

WEAPUN  USER 

/ 

uuick  dim  G 

pu  Jra 

UCAbb 

WEAPUN  CUN  1 RUL 

_dbbu 

Uuinn  Daniel  K 

PO  urd 

CLASS 

NAVIGATION 

_ObO  i 

Ramey  Harold  A 

PO  3rd 

CLASS 

COMMUNICA TION 

CUbbC 

Kugg  am  S 

master 

CHIEF 

PO 

ELECT RUNIC 

Rues  Randy  U 

bbAII  aN 

ENU1NEER 

Cl  40  a. 

Russo  James  u 

SEN  1 UK 

CHI  EF 

PU 

WEAPUN  UbER 

VL‘  t  CJ  -1 

Sangiveri  Dan  K 

SEAMAN 

NAVIGATION 

1.  1  J  J  j 

Sestatc  Timothy  W 

SEAMAN 

NAViuAl IUN 

l  J  u  b 

bhapiro  Edwin  w 

SEAMAN 

NAV IGATIUN 

_  1  Cj  ^ 

borensen  Donald  M 

SEAMAN 

eceC l Runic 

'-J  ^  1  ...  4 

Steevens  James  F 

PU  2nd 

CLAbb 

WEAPON  UUNTRUL 

Sturgeon  James  K 

SEAMAN 

ENGINEER 

J  4  L1 «  ^ 

Tally  Chris  s 

LT.  CUMMANDER 

DECK 

eO  t  jH 

Iran  Mine  K 

seaman 

bANl TAR  V 

C  1  4  VJ  b 

Trend  Ted  M 

SEAMAN 

bUPPL J 

Tngo  Bum  K 

OH1EF 

PU 

SANITARY 

CWbU  / 

Unger  Jexx  H 

bEAMAN 

eNU 1 NEER 

2  1  4_>b 

weingarten  Sam  F 

SEAMAN 

RADAR  UbER 

c  l.  .itstj 

william  Robert  P 

seaman 

ENGINEER 

-J  i  *iDC' 
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p age  no.  l 

i r)s/  l  /  /  at> 

■  LIST  UK  CREW  MEMBERS  SORTED 


(JN  THOSE  HANKS 


HANK 

-- 

SPECIALTY 

NAME 

atKNu 

LT.  COMMANDER 

DECK 

Tally  Chris  S 

a_l tit 

LIEUTENANT 

DECK 

Concon  Stephen  J 

aiW  /  w-«Tj 

CIEUTENAN  i' 

ENGINEER 

J at tee  Jay  M 

a-  /  '  t  J 

1st  LlEUTENAN 1 

DECK 

Emerson  Bux  t  t- 

/  l 

ENSiUN 

DECK 

Er tie  Aaron  P 

j  •  TjW' 

ENSIGN 

DECK 

-Tetter son  Jack  o 

a-'<J  /  -•ID 

ensign 

ENGINEER 

Ervin  Joseph  h 

—  i»J  /  U>c.l 

MAS  TEN 

CHlEt- 

NU 

WEAPON  CUNiROL 

Neian  James  ti 

a. :  J  *  "  *  ’ 

MASTER 

CHIEF 

PO 

COMMUNICATION 

Newell  Peet  s 

aL  <J  /  /  — 

MASTER 

CHIEF 

PO 

ELECTRICIAN 

Nezos  Fred  T 

-  *.  i  '  /  / 

MASTER 

CHIEF 

FO 

ELECTRONIC 

Rugg  Bill  S 

a-tfi  (LJW 

SENIOR 

CHIEF 

FO 

WEAPON  USER 

Russo  James  u 

a.  '  ClfZ- 

SENIOR 

.CHIEF 

NO 

Radar  user 

Armstrong  uavia  K 

- lU  /  r  - 

SENIOR 

CHIEF 

PO 

ENGINEER 

Appel  john  G 

2-  <J  /  “  f 

CHIEF  1 

PO 

radar  user 

Nezart  Jerome  u 

a.v.ltfwJ  1 

CHIEF  PO 

sanitary 

Tngo  Bum  f 

>  / 

uHIEF  Pu 

SUPPLY 

Lyon  Artnur  a 

.  itT'VT.1 

NO  1st 

CLASS 

NAVI GA TIUN 

Nicholson  ueorye  R 

—  w-»o  -  •• 

NO  1st 

CLASS 

ENGINEER 

Gorman  Dennis  H 

j. 

FO  1st 

CLASS 

ELECTRICIAN 

Condon  T  irn  N 

a.  VJ  -t  VJ 

NO  2nd 

CLASS 

weapon  user 

Norton  Harold  o 

a_  «J  -v.  H  1j 

NO  2nd 

CLASS 

WEAPON  CONTKUL 

steevens  James  T 

.-•Jo'-J  — 

NO  2nd 

CLASS 

ELECTRONIC 

Ibel  Peter  j 

a-  w*  ‘  •  1  •  • 

FO  3rd 

CLASS 

WEAPON  USER 

Isola  Mike  C 

‘tU  c'*  ' 

FO  3rd 

CLASS 

WEAPON  CONTHUL 

UuicK  bim  G 

a_2.»tlV-^l 

NO  3rd 

CLASS 

COMMUNICA lluN 

Ramey  Harold  A 

FU  3rd 

CLASS 

NAVIGATION 

Uuinn  Daniel  F 

JU'-.'Vi  i 

FO  3rd 

CLASS 

ENGINEER 

Hobson  Aaron  M 

-id's  1 

SEAMAN 

WEAPON  USER 

lilt  Thomas  c 

a  U  i  >'  ■ 

SEAMAN 

WEAPON  USER 

Uualls  Terry  D 

a-  V)  a-.  / 

SEAMAN 

WEAPUN  USER 

PulK  Richard  C 

._!U  d  -• 

SEAMAN 

WEAPON  USER 

Miller  Jacj  T 

SEAMAN 

WEAPON  USER 

Little  Fredenk  J 

-• 

SEAMAN 

WEAPON  USER 

Fiamini  cnaries  d 

-  *“JW» 

SEAMAN 

WEAPUN  CONTROL 

hogei  Gregory  B 

SEAMAN 

WEAPON  CONTROL 

Clark  James  D 

/  - 

SEAMAN 

WEAPON  CONTROL 

Clark  Andrews  1 

ill's  <  a 

SEAMAN 

WEAPUN  CONTROL 

Biondi  Daniel  M 

SEAMAN 

COMMUNICA  TIUN 

Armout  Paul  G 

Tl  UJ-t 

SEAMAN 

COMMUNICATION 

McPherson  Jack  A 

^  i 
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Page  no.  2 

06/ 1 7/ bto 

LIST  Of  CREW  MEMBERS  SORTED 


UN  THOSE  RANKS 


RANK 

SPECIALTY 

NAME 

SEr.NO 

SEAMAN 

COMMUNICATION 

ttallon  Patrick  F 

ail 

SEAMAN 

NAVIGATION 

Markley  Daniel  i 

*1  1  _JV'l 

SEAMAN 

navigation 

Sansiven  Dan  K 

—  1  -  wJ  J 

seaMan 

NAVIGATION 

Sestak  Timothy  w 

1  .ff.  it  ■ 

SEAMAN 

NAVIGATION 

Shapiro  Edwin  w 

-L  i  wCi  J 

seaman 

RADAR  USER 

weingarten  Sam  F 

4.  1  Ji&H. 

SEAMAN 

SANITARY 

Iran  Mike  h 

i  -»  •/»* ■? 

SEAMAN 

SUPPLY 

Trend  Ted  M 

...  *  I  _  .J 

SEAMaN 

ENGINEER 

Unger  Jen  H 

-  J.  •*. 

SEAMAN 

ENGINEER 

Russ  Randy  G 

*.  J.  -t  i 

SEAMAN 

ENGINEER 

william  RoDer  t.  p 

2 1 

SEAMAN 

ENGINEER 

Beam  Alan  K 

_l-t«7 

SEAMAN 

ENGINEER 

Edson  Alan  B 

*1  *t  ti  t* 

SEAMAN 

ENGINEER 

Cavalini  Larry  t 

L-iOJu 

SEAMAN 

ENQiHEEti 

Martyr  Paul  j 

—  *1  VVifj 

SEAMAN 

ENGINEER 

Knubis  James  P 

2*.  •••_' 

SEAMAN 

ENGINEER 

Kahn  Rodent  H 

2-t  :j.  .i  1 

SEAMAN 

ENG1 NEER 

sturgeon  James  t\ 

SEAMAN 

ELECTRICIAN 

Kett  David  G 

** '  J  i?  / 

SEAMAN 

ELECTRICIAN 

Getline  scott  B 

—  4’;*  :fW 

SEAMAN 

ELECTRICIAN 

Nikola  Michael  E 

i 

SEAMAN 

ELECTRONIC 

Cline  William  H 

—  i  ‘  > 

SEAMAN 

ELECTRONIC 

sorensen  uonaia  M 

ji  ...*i 
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rage  No. 
06/  l//ab 


in  date 


06/06/84 
06/22/64 
07/03/84 
07/10/64 
08/ 19/64 
12/01/84 
12/03/64 
12/ 06/64 
12/ 10/64 
12/ 12/64 
12/ 14/64 
12/20/84 
01/31/8-3 
04/24/85 
05/07/85 

03/ ii/63 
05/ 14/65 
05/ 19/65 
03/27/65 
06/05/85 
06/09/85 
06/ 16/65 
06/ 16/65 
06/27/65 
0b/ 30/65 
07/ 10/65 
07/11/85 
07/ 14/65 
07/17/83 
07/18/85 
07/19/85 
07/21/65 
07/23/65 
08/04/85 
06/ 19/85 
06/24/65 
09/03/85 
09/04/65 
09/06/65 
09/ 17/65 


1 

list  uf  crew  members  sorted 


ON  THOSE  ENROLLMENT  DATE 


NAME  RANK  bPhLlALi'i  auiNb 


Concon  Stephen  J 

LIEUTENANT 

DECK 

Armstrong  David  K 

SENIOR 

CHIEF 

PO 

RADAR  USER 

-W  /  "V  «J 

Nelan  James  H 

MASTER 

CHibF 

PU 

WEAPON  LUNIKUL 

/  & '■=? 

Lyon  Arthur  B 

CHIEF  PO 

SUPPLY 

'z> 

Nezos  Fred  T 

MASTER 

CHIEF 

PO 

ELECTRICIAN 

/  /  / 

lilt  Thomas  C 

SEAMAN 

WEAPON  USSR 

aiW'j  -L 

Edson  Alan  B 

SEAMAN 

ENGINEER 

2L  "t:  C1‘  3 

Russ  Randy  0 

SEAMAN 

ENGINEER 

Kohn  Robert  H 

SEAMAN 

ENG 1 NEER 

-*  i‘  Z-‘  i. 

Kett  David  G 

SEAMAN 

ELECTR1CI AN 

/ 

Weingarten  Sam  F 

SEAMAN 

RADAR  USSR 

xii  _» t“>  tr» 

Clark  Andrews  1 

SEAMAN 

WEAPON  CUNTRUL 

2.  Vj  V  /  to 

Ervin  Joseph  H 

ENSIGN 

ENGINEER 

2.  /J  '  U  ‘  ' 

Nicholson  George  R 

PO  1st 

CLASS 

NAVIGATION 

1  V 

Nikola  ilichael  E 

SEAMAN 

ELECTRICIAN 

...  '-J  X 

Little  Freoerik  J 

SEAMAN 

Wh-APUN  USER 

2.  ~I  'J 

Trend  Ted  n 

SEAMAN 

SUPPLY 

Cavalini  Larry  F 

SEAMAN 

ENGINEER 

--it*'  J  .■ 

McPherson  Jack  A 

seaman 

COMMUN lLA 1 i UN 

x.  i  —  -* 

Sansiven  Dan  K 

SEAMAN 

NAViGAi 1UN 

X  -■  . 

Miller  Jacj  T 

SEAMAN 

WEAPON  USER 

2.  V  "J  ^  C 

Hobson  Aaron  M 

PO  3rd 

CLASS 

ENG I NEER 

J.'ti'-j  x 

loel  Peter  J 

PO  2nd 

CLASS 

ELECTRONIC 

I’JOU  • 

Steevens  James  h 

Pu  2nd 

CLASS 

WEAPUN  CUN1RUL 

7j  _ 

Gorman  Dennis  H 

PO  1st 

CLASS 

ENGINEER 

_  _•  i 

Tally  Chris  S 

LT.  COMMANDER 

DECK 

*.'0  / 

Beam  Alan  K 

SEAMAN 

ENGINEER 

iito/ 

Appel  John  G 

SENIOR 

CHIEF 

PU 

ENGINEER 

+.VJ  t 

Emerson  Burt  F 

1st  LIEUTENANT 

DECK 

— 

Flamim  Charles  D 

SEAMAN 

WEAPON  USER 

U  ‘i*  .Ji/j 

Newell  Peet  S 

MASTER 

CHI  EF 

PU 

CUMMUNlCA  T TUN 

/  /  2. 

Norton  Harold  G 

PU  2nd 

CLASS 

WEAPUN  USER 

Rugg  Bill  S 

MAS TER 

CHIEF 

PU 

ELEC  1  RUN II 

2.WJ  ,  owy 

Nezart  Jerome  G 

CHIEF  1 

PO 

RADAR  USER 

1 

uualls  Terry  D 

SEAMAN 

WEAPUN  USER 

2-  '<J  / 

Mallon  Patrick  F 

SEAMAN 

CUMMUNlCA 1  ION 

Getline  Scott  B 

SEAMAN 

ELECTRICIAN 

^  *  'z)  '-j  « 

Ertle  Aaron  P 

ENSIGN 

DECK 

Jid  /  *iivj 

Clark  James  D 

SEAMAN 

WEAPUN  CONTRUL 

Martyr  Paul  J 

SEAMAN 

ENGINEER 

2-fJWb 
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Page  No. 
06/ 1//Bb 


i N  DATE 


09/20/85 
09/24/85 
lid/ 01/85 
12/01/85 
12/04/85 
12/ 17/85 
01/ 18/86 
01/24/88 
01 / 31 /  8b 
02/02/86 
02/09/86 
02/ 16/86 
02/21/86 
02/28/86 
08/07/88 
08/ 11/86 
04/01/88 
04/02/86 
04  /  0"8/  86 
04/ 14/88 
04/28/86 
05/07/86 
05/ 10/86 


L18T  Uh  CHEW  MEMBERS  3UK  i  ED 


ON  THOSE  ENROLLMENT  DA  f  £ 


NAME  RANK  8HbDiAi_it  itnNu 


Tran  Make  K 

SEAMAN 

SANITARY 

—  i  *« 

Shapiro  Edwin  W 

SEAMAN 

NAVIGATION 

-  JO  ■' 

Rainey  Harold  A 

PO  3rd 

CLASS 

CUMMUNICA 11LM 

— .  V*  'u't; 

Sturgeon  James  k 

SEAMAN 

Engineer 

—  “X  ' 

Cline  Wiiliam  K 

SEAMAN 

ELECTRONIl 

—  D  «  i  Zj 

Armout  Paul  0 

SEAMAN 

CUMMUNlLA 1 1GN 

—  1 

Pulk  Richard  6 

SEAMAN 

WEAPON  USER 

—  E/  -  .*■  O 

Hiondi  Daniel  n 

SEAMAN 

WEAPUN  LUN 1 KUE 

*.  ‘a 

Uuinn  Daniel  P 

PU  3rd 

CLASS 

NAV IGATION 

l 

Markley  Daniel  T 

SEAMAN 

navigation 

42  .1  J  VJ  * 

Russo  James  D 

SENIOR 

CHIEF 

PO  WEAPUN  USeR 

-L  /  cO 

Sestak  Timotny  w 

SEAMAN 

NAV IGA lIUN 

William  Rooert  P 

SEAMAN 

ENGINEER 

—  -2  **  CJ  <  • 

Jefferson  Jacn  L 

ENSIGN 

DECK 

4 -V  /  JU 

Unger  Jeii  H 

SEAMAN 

ENGINEER 

4  -  i  ;  *• 

Isoia  hike  L 

PU  3rd 

LEASE 

WEAPON  USER 

^.<c*w  /  .8 

Knudis  James  P 

SEAMAN 

ENGINEER 

—  *X  Z-  ~4 

Condon  Tim  N 

PO  1st 

CLASS 

ELECTRICIAN 

-  •>  Ij 

Quick  Gim  G 

PO  3rd 

CLASS 

WEAPON  CUN  1 KUL 

-l  • 

borensen  Donald  fl 

SEAMAN 

ELEC  1  RUNIC 

-O  i 

Jallee  Jay  fl 

LIEUTENANT 

ENGINEER 

4-VJ  ••  ‘i  i 

Tago  Bum  F 

CHIEF 

PO 

SANITARt 

...  . '  v  i  , 

Fagel  Gregory  B 

SEAMAN 

WEAPUN  CUN  1 hUL 
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Page  No. 

06/ 1  /  /  as 

LIST  U f  CHEW  MEMBERS  SUR TED 


QN  THOSE  DISENROLlMENT  DATE 


uutdate  name  rank  speciali*  slrnu 


0 «/ 17/85 

Armout  Raul  G 

SEAMAN 

COMMUNICATION 

2 1^)2^ 

08/01/86 

lift  Thomas  C 

SEAMAN 

WEAPON  USER 

2-«J*3  i  fc» 

(48/03/86 

Edson  Alan  B 

SEAMAN 

ENGINEER 

2  6  00  'if 

08/08/66 

Russ  Ranay  g 

SEAMAN 

ENGINEER 

i 

(48/  10/86 

Kohn  Rooert  H 

SEAMAN 

ENGINEER 

2-  **  -  J  L 

06/ 12/66 

Kett  David  G 

SEAMAN 

ELECTRICIAN 

2-r’y'J  t 

08/ 14/66 

Weingarten  Sam  F 

SEAMAN 

RADAR  USER 

a.:  1  wfclto 

08/20/86 

Clark  Andrews  X 

SEAMAN 

WEAPUN  CUN  1 RUL 

ai  VJ  'f  '■  Ci 

01/07/87 

Nikola  Michael  E 

SEAMAN 

ELECTRICIAN 

l 

01/11/87 

Little  Fredenk  J 

SEAMAN 

WEAPON  USER 

2.  v>  -J 

01/14/67 

Trend  Ted  M 

SEAMAN 

SUPPL* 

2.  i  -t  w  .  -• 

01/ 16/8? 

Cavalini  Larry  F 

SEAMAN 

ENGINEER 

01/27/87 

McPherson  Jack  A 

seaman 

CUMMUN 1CA 11UN 

2;  1  2  rt  *4 

02/05/67 

Sansiven  Dan  K 

SEAMAN 

NAVIGATION 

-il  wj:-j 

02/06/67 

Miller  Jacj  T 

SEAMAN 

WEAPUN  USER 

2. wj  :.>**« 

03/ 11/67 

Beam  Alan  K 

SEAMAN 

ENGINEER 

2.145  / 

03/18/87 

Flamim  Charles  D 

SEAMAN 

weapun  user 

04/16/67 

Qualls  Terry  D 

SEAMAN 

WEAPUN  USER 

■ 

04/24/87 

Mallon  Patrick  F 

SEAMAN 

CUMMUN  i  U  A  I'lUN 

2.  i  *j‘j  ’ 

04/24/67 

Snapiro  Edwin  W 

seaman 

NAVIGATION 

ai  X  to 

05/03/87 

Detune  bcott  B 

SEAMAN 

Elec irician 

05/06/67 

Clark  James  D 

SEAMAN 

WEAPON  CONTROL 

'  .. 

05/17/67 

Martyr  Paul  J 

SEAMAN 

ENGINEER 

*.••1 

05/ 20/87 

Tran  Mike  K 

seaman 

SANi I  ar  x 

08/01/87 

Sturgeon  James  K 

seaman 

ENGINEER 

08/04/67 

Cline  William  R 

seaman 

ELECTRONIC 

'.'</*  l  Tj 

06/ 16/67 

Pulk  Richard  G 

seaman 

WEAPON  USER 

2-  </«'■  «_c» 

0S/  24/67 

Biondi  Daniel  M 

seaman 

WEAPUN  CONTROL 

» 

10/02/67 

Markley  Daniel  T 

seaman 

NA  V  IGA  1  1-UN 

^  1  ,1  k'l  ^ 

10/ 16/87 

Sestak  Timothy  W 

SEAMAN 

N  A  V I GAT lUN 

... 

10/21/87 

William  RoDert  P 

seaman 

ENG 1 NEEK 

2.  L  *X 

11/07/87 

Unger  Jeii  H 

seaman 

ENGINEER 

2.  i  -1 

01/ 10/88 

Pogel  Gregory  B 

SEAMAN 

WEAPUN  CON  1 RUL 

(iJ  -J  Cj  tu 

12/01/88 

Knubis  James  P 

SEAMAN 

ENGINEER 

12/ 14/68 

Sorensen  Donald  M 

seaman 

ELECTRONIC 

1 J  i  xi  *4 

/  / 

Tally  Chris  S 

LT.  COMMANDER 

DECK 

/  _>*4 

/  / 

concon  Stepnen  J 

lieutenant 

DECK 

. ' l-i 

/  / 

Jallee  Jay  M 

LIEUTENANT 

ENGINEER 

2k)V-i\ 

/  / 

Emerson  Burt  F 

1st  LIEUTENANT 

DECK 

2k)  / 45 

/  / 

Ertle  Aaron  P 

ENSIGN 

DECK 

/  jW 
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Rage  No.  S 

idts/  i  /  / as 

ClbT  OF  CK  EW  Hfc.Nbt.Kb  SOK  l  ED 


ON  THOSE  DISENRULLMENT  DATE 


OUTDaTE 

NAME 

RANK 

— 

SPEC 1  ALT Y 

is  c.  r<  N  (J 

/ 

/ 

Jefi'erson  Jack  L 

ENSIGN 

DECK 

JM.*' i  llfi'.J 

/ 

/ 

Ervin  Joseph  H 

ENSIGN 

ENGINEER 

/  l SCI 

/ 

/ 

Nelan  James  H 

MASTER 

CHIEF 

PO 

WEAPON  CONI RUL 

k&S  'S  -J 

/ 

/ 

Newell  Feet  S 

MASTER 

CHIEF 

HU 

COMMUN 1 c A  1 1 UN 

/ 

/ 

Nezos  Fred  T 

MASTER 

CHIEF 

PU 

ELECTRICIAN 

■C.WJ  '  *  ‘ 

/ 

/ 

Kugg  Bill  S 

MASTER 

CHIEF 

PO 

ELECTRONIC 

/ 

/ 

Kusso  James  D 

SENIOR 

CHIEF 

PO 

WEAPON  UStK 

W  •  /  V  J 

/ 

/ 

Armstrong  David  N 

SENIOR 

CHIEF 

PU 

RADAR  UStK 

/  ’J.} 

/ 

/ 

Appel  John  Li 

SENIOR 

CHI  EF 

PU 

ENGINEER 

_  slJ  /  .1  H 

/ 

/ 

Nezart  Jerome  Li 

CHIEF 

PO 

RADAR  USER 

_  i 

/ 

/ 

Tngo  Bum  F 

CHIEF 

PO 

SANITARY 

/ 

/ 

Lyon  Arthur  B 

CHIEF 

PO 

SUPPLY 

/ 

/ 

Nicnolson  George  K 

PU  1st 

CLASS 

NA V lUA 1 1UN 

-US  1  s 

/ 

/ 

Gorman  Dennis  H 

PO  1st 

CLASS 

ENGINEER 

4-  '<L>  — i  i 

/ 

/ 

Condon  Tim  N 

PU  1st 

CLASS 

ELECTRICIAN 

UJ  £j  ^ J 

/ 

/ 

Norton  Harold  u 

HO  ind 

CLASS 

WEAPON  USER 

^  “»  U 

/ 

/ 

Steevens  James  F 

RU  Jnd 

Cl-ASS 

WEAPUN  CUN i KUC 

/ 

/ 

Ihel  Peter  J 

ku  2nd 

CLASS 

ELECTRONIC 

/ 

/ 

/ 

Isola  Mike  L 

PO  3rd 

CLASS 

WEAPUN  UStK 

/ 

/ 

Uuick  Gun  G 

PO  3rd 

CLASS 

WEAPON  CONi'KUL 

/ 

/ 

Kamey  Harold  A 

PO  3rd 

CLASS 

COMMUN 1 CA l 1UN 

/ 

/ 

Quinn  Daniel  F 

PU  3rd 

CLASS 

NAVIGATIUN 

4-  Vj  'if  W  + 

/ 

/ 

HoDson  Aaron  M 

PO  3rd 

CLASS 

ENGINEER 

4-VJ  1  ’/} 
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Page  No.  1 

06/ 17/ab 

ALPHABb  QtAL  LiiT  OF  CKtlW  fltnBbkb 


WITH  RANKS  AND  Sl^tLIAL  lT£b 


name  rank  specialty 


Appel  Jonn  G 

SENIUK 

CHIEF 

PG 

engineer 

Armout  Paul  G 

SEAMAN 

C0MMUN1GA  MUN 

Armstrong  David  K 

SENIOR 

CHIEF 

PG 

RADAR  USER 

Beam  Alan  K 

SEAMAN 

ENGINEER 

Bipndi  Daniel  M 

SEAMAN 

WEAPGN  CGNTRGL 

Cavalim  Larry  F 

SEAMAN 

engineer 

ClarK  Andrews  I 

SEAMAN 

WEAPGN  LUN1RUL 

Clai'k  James  D 

SEAMAN 

WEAPGN  GUN i KUL 

Cline  William  R 

SEAMAN 

ELECTRONIC 

Cancon  Steptien  J 

LIEUTENANT 

DECK 

Condon  Tim  N 

PG  1st 

CLASS 

ELECTRICIAN 

Eason  Alan  B 

SEAMAN 

ENGINEER 

Emerson  Burt  F 

1st  LIEUTENANT 

DEcK 

Ertle  Aaron  F 

ENSIGN 

DECK 

Ervin  Joseph  H 

ENSIGN 

ENGINEER 

Fiamini  Charles  D 

SEAMAN 

WEAPGN  USER 

Fogel  Gregory  B 

SEAMAN 

WEAPUN  CUN (RUG 

Getline  Scott  B 

SEAMAN 

ELECTRICIAN 

uo rman  Dennis  H 

PG  1st 

CLASS 

ENGINEER 

HoDson  Aaron  M 

PG  3rd 

GLASS 

ENGiNbEK 

Ibel  Peter  J 

Pu  2nd 

CLASS 

ELECTRONIC 

Itit  Thomas  C 

SEAMAN 

WEAPON  USER 

Isola  rtiKe  L 

PU  3rd 

CLASS 

weapon  User 

J  at' tee  Jay  M 

LIEU  TENAN F 

ENGINEER 

Jellerson  Jack  L 

ENsluN 

UbCl\ 

nett  David  G 

SEAMAN 

ELECTRICIAN 

Knubis  James  P 

SEAMAN 

ENGINEER 

Kohn  Robert  H 

SEAMAN 

ENGINEER 

Little  Fredenk  J 

SEAMAN 

WEAPGN  USER 

Lyon  Arthur  B 

CHIEF 

PO 

SUPPLY 

Mallon  Patrick  F 

SEAMAN 

CUMMUNlCATlUN 

Markley  Daniel  T 

SEAMAN 

NAVibAl iUN 

Martyr  Paul  J 

SEAMAN 

ENGINEER 

McPherson  Jack  A 

SEAMAN 

COMMUNlCA  TlGN 

Miller  Jacj  T 

SEAMAN 

WEAPON  USER 

Nelan  James  H 

MASTER 

CHIEF 

PG 

WEAPON  CUN (RUG 

Newell  Peet  S 

MASTER 

CHIEF 

PG 

COMMUNlCA  HUN 

Nezart  Jerome  G 

CHIEF 

PO 

RADAR  USER 

Nezos  Fred  T 

MASTER 

CHIEF 

PO 

ELECTRICIAN 

Nicholson  George  R 

PO  1st 

CLASS 

NAVIGATION 
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WITH  HANKS  AND  SPECIALTIES 


NAME  RANK  SPECIALTY 


Nikola  Michael  E  SEAMAN  ELECTKlClAN 

Norton  Harold  G  PO  2nd  CLASS  WEAPUN  user 

Pulk  Richard  G  SEAMAN  WEAPON  USER 

Uualls  Terry  D  SEAMAN  WEAPON  USER 

Uuick  Gim  G  PO  3rd  CLASS  WEAPUN  CUNTKUL 

Guinn  Daniel  F  PO  3rd  CLASS  NAVIGATION 

Ramey  Harold  A  PU  3rd  CLASS  CunrtUNlCAJ xUN 

Hugg  Bill  S  MASTER  CHIEF  PU  ELECTRONIC 

Russ  Randy  G  SEAMAN  ENGINEER 

Russo  James  D  SENIOR  CHIEF  PQ  WEAPON  UoER 

Sansiven  Dan  K  SEAMAN  NAVIGATiuN 

Sestak  Timothy  W  SEAMAN  NAVibAliUN 

Shapiro  Edwin  w  SEAMAN  NAVIGATiun 

Sorensen  Donald  n  SEAMAN  ELECTRON  1 L 

Steevens  James  F  PO  ind  CLASS  WEAPON  CuNTRuL 
Sturgeon  James  K  SEAMAN  ENGINEER 

Tally  Chris  S  LT.  COMMANDER  DECK 

Tran  Mike  K  SEAMAN  SANITARY 

Trend  led  M  seaman  SUPPLY 

Trigo  Bum  F  CHIEF  PO  SANITARY 

Unger  Jell  H  SEAMAN  ENGINEER 

Weingarten  Sam  F  SEAMAN  RADAR  UsER 

William  Robert  P  SEAMAN  ENGINEER 


Page  No.  l 

06/  17/  as 

ALPHAbi.1  iLAL  Lib'l'  UF  UKtK  i1C.i1bt.Ki. 


WITH  THOSE  PHONE  NUMBERS 


NAME  PHONE  NO 


Appel  John  0 

340-6/81 

Armout  Paul  0 

648-0453 

Armstrong  David  K 

j'/G-b  7B2 

Beam  Alan  K 

678 -0605 

Biondi  Daniel  M 

375-5714 

Cavalim  Larry  K 

657-3321 

Clark  Andrews  1 

j4y-uan 

Clark  James  D 

j7a-wa7b 

Cline  William  R 

baa-bboa 

Concon  stepnen  J 

046-8/64 

Condon  Tim  N 

3/2-88/0 

Edson  Alan  B 

876-8004 

Emerson  Burt  F 

567-8865 

Ertle  Aaron  P 

373-4568 

Ervin  Joseph  H 

373-6023 

Flamini  Charles  D 

375-6601 

Fogel  Uregory  B 

606 - 7766 

Oetline  Scott  B 

3/6-6028 

Gorman  Dennis  H 

388-8764 

Hooson  Aaron  n 

625 *  4380 

Ibel  Peter  J 

373-6466 

lilt  Thomas  C 

345-6785 

Isola  Mike  L 

33J-b7a3 

Jaliee  Jay  M 

632-3134 

Jellerson  Jack  L 

658-8740 

Kett  David  ft 

4  56 - 8860 

Knubis  James  P 

343-8605 

Kohn  Robert  H 

677-8881 

Little  tredenk  J 

J 7 4— 6400 

Lyon  Arthur  B 

370-6 / 80 

Mallon  Patrick  P 

687-7650 

Markley  Darnel  T 

467-8670 

Martyr  Paul  J 

373-6788 

McPherson  Jack  A 

687-8652 

Miller  Jacj  T 

372 -b402 

Nelan  James  H 

456-6/88 

Newell  Peet  S 

372-6402 

Nezart  Jerome  G 

756-8004 

Nezos  Fred  i 

373-6406 

Nicholson  George  R 

623 - 0206 
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WITH  THOSE  PHUNE  NUMBERS 


NAME  PHONE  NO 


Nikola  Michael 

E 

445-5546 

Norton  Harold  6 

598-2366 

Pulk  Richard  0 

387-9653 

Qualls  Terry  D 

623-3470 

Quick  Dim  0 

325-8/64 

Quinn  Daniel  F 

345-6682 

riatney  Harold  A 

373-6/58 

Kugg  Bill  6 

458-908/ 

Puss  Handy  G 

373-4866 

Russo  James  D 

546-5578 

Sansiven  Dan  K 

374-6561 

Sestak  Timothy 

W 

546-7769 

Shapiro  Eawin  w 

345-8859 

Sorensen  Donald 

n 

6a? -8760 

Steevents  James 

f 

453-8342 

Sturgeon  James 

H 

723-6413 

Tally  cnns  s 

565-621/ 

Tran  Mike  K 

4/8-1254 

Trend  Ted  M 

373-6770 

Tnga  Bum  F 

373-4911 

Unger  Jell  H 

646-8764 

Weingarten  Sam 

F 

455-9985 

William  Robert 

P 

346-8971 
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ALPHABETICAL  LIST  UP  CHEW  MEMBERS 


WITH  THOSE  HOME  ADDRESSES 


NAflE  HOME  ADDRESS 


Appel  John  G 
Armout  Paul  G 
Armstrong  David  K 
Beam  Alan  K 
Biondi  Daniel  M 
Cavalini  Larry  F 
Clark  Andrews  i 
Clark  James  D 
Cline  William  R 
Cancan  Stephen  J 
Condon  Tim  N 
Eason  Alan  B 
Emerson  Burt  F 
Ertle  Aaron  P 
Ervm  Joseph  H 
Flamini  Charles  D 
Fogel  Gregory  B 
Getline  Scott  B 
Gorman  Dennis  H 
Hobson  Aaron  M 
ibel  Peter  J 
lift  Thomas  C 
isola  hike  L 
Jalfee  Jay  M 
Jeiferson  Jack  L 
Kett  David  G 
Knubis  James  P 
Kohn  Robert  H 
Little  Krederik  J 
Lyon  Arthur  B 
Mallon  Patrick  F 
Markley  Daniel  T 
Martyr  Paul  J 
McPherson  Jack  A 
Miller  Jacj  T 
Neian  James  H 
Newell  Peet  S 
Nezart  Jerome  G 
Nezos  Fred  T 
Nicholson  George 


15  Diane  Bonita 

21  Pine  Aromas 
lb  Denis  Carmel 

24  Franklin  Marina 
8b  Monroe  Marina 
29  Side  Larmel 

43  Pine  utay 

1  Acropolis  Salimas 
90  Carmen  Carmel 

44  Pine  Bonita 

60  Smex  Monterey 
68  Castor  S.  Jose 
41  9th  Fresno 
23  Camino  Marina 
32  Grove  Monterey 

22  Cannery  Monterey 
36  Coral  Carmel 

13  Vina  Monterey 

2  Franklin  Fresno 
39  Main  Salimas 
31  5th  Monterey 

6  Acacia  Salinas 
99  David  S.  cruz 

10  Paso  San  Diego 

11  Forest  S.  Clara 
44  Story  Salimas 

3  14th  Monterey 
26  Hawk  Fresno 

53  Vista  Monterey 
lb  Jacobs  Carmel 
49  Scott  S.  Jose 
66  Lake  Hanna 
2 5  Dexter  carmel 

12  5th  Calaveras 
44  Buna  Monterey 
b/  Faso  sallinas 
bO  Desty  Monterey 

14  Fox  Nestor 

19  Franklin  Marina 
R  16  Elden  Gilroy 
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ALPHABETICAL  LIST  UK  LREW  MEMBERb 


Wl'i'H  THuSE  Hunt  ADDRESSES 


NAME  HUME  ADDRESS 


Nikola  Michael  E 
Norton  Haroia  0 
Pulk  Richard  G 
Qualls  Terry  D 
Quick  Gim  G 
Quinn  Daniel  F 
Ramey  Harold  A 
Rugg  Bill  S 
Russ  Randy  G 
Russo  James  D 
Sansiveri  Dan  K 
Sestak  Timothy  W 
Shapiro  Edwin  W 
Sorensen  Donald  M 
Steeverxs  James  F 
Sturgeon  James  K 
Tally  Chris  S 
Tran  Mike  K 
Trend  Ted  M 
Tngo  Burn  F 
Unger  Jett  H 
weingarten  Sam  F 
William  Ropert  P 


26 

Dolores  b.  Cruz 

J7 

Holman 

L.  Gatos 

33 

Ruska 

Reno 

65 

Desty 

Moreno 

22 

Maple 

Napa 

29 

bth  Aromas 

15 

Grove 

Monterey 

bb 

Car los 

5.  Jose 

21 

Ramona 

Car  rnei 

77 

Hills 

S.  Jose 

35 

Diane 

Monterey 

2  Fox  Los  Gatos 
53  utn  Monterey 
27  Rositta  R.  A 1 
50  Pine  Palo  Alt 
6s  Lowell  a.  Jos 
3b0  Spencer  Larm 

9  Holman  S.  Liar 
93  Ocean  Montere 

10  Mountain  Carm 
36  David  Montexey 

3  River  Salimas 

J  Parthenon  carmei 


>s  •!)  >-  o  0  j|  1  o.  t 
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ALPHABET I CAL  LIST  OF  CREW  MEMBERS 


WITH  THOSE  ADDRESSES  AND  PHONES 


NAME  HOME  ADDRESS 


Appel  John  G 
Armout  Paul  G 
Armstx'ong  David  K 
beam  Alan  K 
Biondi  Daniel  M 
Cavalim  Larry  F 
Clark  Andrews  1 
Clark  James  D 
Cline  William  R 
Concon  Stephen  j 
Condon  Tim  N 
Edson  Alan  B 
Emerson  Burt  F 
Ertle  Aaron  P 
Ervin  Joseph  H 
Flamim  Charles  D 
Fogel  Gregory  6 
Getline  Scott  B 
Gorman  Dennis  H 
Hooson  Aaron  n 
ioel  Peter  J 
lilt  Thomas  C 
Isola  Mike  L 
Jaiiee  Jay  M 
Jelierson  J ack  L 
Kett  David  G 
Knubis  James  P 
Kohn  Robert  H 
Little  Fredenk  J 
Lyon  Arthur  B 
Malian  Patrick  P 
Markley  Daniel  T 
Martyr  Paul  J 
McPherson  Jack  A 
Miller  Jacj  T 
Nelan  James  H 
Newell  Peet  s 
Nezart  Jerome  G 
Nezos  Fred  T 
Nicholson  George  R 


15  Diane  Bonita 

21  Pine  Aromas 
lb  Denis  Carmel 

24  Franklin  Marina 
Bb  Monroe  Marina 
29  Side  Carmel 

43  Pine  Otay 

1  Acropolis  Salimas 
90  Carmen  Carmel 

44  Pine  Bonita 

b<3  Smex  Monterey 
BB  Castor  S.  Jose 
41  9th  Fresno 
23  Camino  Marina 
32  Grove  Monterey 

22  Cannery  Monterey 
36  Coral  Carmel 

13  Vina  Monterey 

2  Franklin  Kresno 
39  Main  Salimas 
81  5th  Monterey 

B  Acacia  Salinas 
99  David  S.  Cruz 

10  Paso  San  Diego 

11  Forest  S.  Clai a 
44  Story  Salimas 

3  14th  Monterey 
26  Hawk  Fresno 

53  Vista  Monterey 

16  Jacobs  Carmel 
49  Scott  s.  Jose 
bb  Lake  Marina 

25  Dexter  Carmel 

12  5th  Calaveras 
44  Buna  Monterey 
b 7  Paso  Salimas 
b0  Desty  Monterey 

14  Fox  Nestor 

19  Franklin  Marina 
IB  Elden  Gilroy 


PRUNE  NU 


J45-b7bl 
b4b-045_ 
37  3  “b  / S2 
b/b-0905 

8 75- 0/  14 

b57 - 3321 
349-aal 1 
379 “UB 7 b 
obb-GbOB 
546-6764 

372- 9B75 

876- 9504 
567 -BB95 

373- 45bb 

j/j-blO/J 

875-690 1 
656  -  77ot> 
j7b-o j/U 
3ba-9/b4 
b25 -4565 
j  /  5  -  b4fc>b 
j45*b7iib 
333-6/83 
632-8134 

b5b “9/48 

45o-9bb2 
845-6905 
b77 -999 1 
8 7 4  ~b408 
873-67 60 
bb / - /b 80 
4o / -99 / 0 
873  -  bV 69 
bb7 -9b52 
872-6402 
45b -b / 69 
8X2-b402 
756-9284 
375-6406 
623 -322b 
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ALPHABETICAL  LIST  UK  CHEW  MENBEko 


WITH  THOSE  ADDRESSES  AND  PHONES 


NAME  HOME  ADDRESS 


Nikola  Michael  E 
Norton  Harold  G 
Pulk  Richard  G 
Qualls  Terry  D 
Uuick  Gim  G 
Quinn  Daniel  F 
Ramey  Harold  A 
Rugg  Bill  S 
Russ  Randy  G 
Russo  James  D 
Sansiven  Dan  K 
Sestak  Timothy  w 
Shapiro  Edwin  W 
Sorensen  Donald  M 
Steevens  James  K 
Sturgeon  James  K 
Tally  Chris  6 
Iran  Hike  K 
Trend  Ted  M 
Trigo  Bum  F 
Unger  Jell'  H 
Weingarten  Sam  F 
William  Robert  P 


26  Dolores  S.  Cruz 
37  Holman  L.  Gatos 
33  Ruska  Reno 

65  Desty  Moreno 
22  Maple  Napa 
29  6th  Aromas 

15  Grove  Monterey 

66  Carlos  S.  Jose 
21  Ramona  Carmel 
77  Hills  S.  Jose 

35  Diane  Monterey 

2  Fox  Los  Gatos 
53  6th  Monterey 

27  Rositta  P.  Alto 
50  Pine  Palo  Alto 
69  Lowell  s.  Jose 
360  Spencer  Carmel 

9  Holman  S.  Clara 
93  Ocean  Monterey 

10  Mountain  Carmel 

36  David  Monterey 

3  River  Salimas 

3  Parthenon  Carmel 


PHUNE  NO 


445-5546 

566-2366 

367-9653 

633-34/(4 

325-6/64 

345-6663 

3/3-6/56 

456-9067 

373- 4666 
046-05/6 

374- 6561 
546-7769 

345- 6609 
667-6760 
455-6043 
7.iU  -64  1  3 
060 -03 1  / 
4/6- 1334 
373-6770 

375- 4911 
046-6764 
455-9960 

346- 697 1 
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DEPARTMENT  : 


SUPER V 1SUR  : 


NAME 

SERNG 

Ranh 

— 

SPECIAL  1  i 

DtfA: 

Tally  Chris  S 

20734 

LT.  COMMANDER 

DECK 

DECK 

Concern  Stephen  J 

20736 

LIEUTENANT 

DECK 

DELK 

Emerson  Burt  F 

20746 

1st  LIEUTENANT 

DELK 

UlLUl'. 

Ertle  Aaron  P 

30750 

ENSIGN 

• 

DECK 

DECK 

Jexierson  Jack  L 

20756 

ENSIGN 

DECK 

DECK 

Nelan  James  H 

20766 

MASTER 

CHIEF 

Pu 

WEAPUN  LUNTRUL 

DELK 

Newell  Peet  S 

20772 

MASTER 

CHIEF 

PU 

lUMMUNILA 1 1UN 

DELK 

Russo  James  D 

20765 

SEN 1UR 

CHIEF 

PU 

WEAKUN  USLK 

DECK 

Armstrong  David  K 

20793 

SENIOR 

CHIEF 

PU 

RADAR  USER 

DEuK 

Nezart  Jerome  G 

20801 

CHIEF  I 

Pu 

RADAR  USER 

frigo  Bum  F 

20807 

CHIEF  , 

PO 

SANITARY 

DElK 

Lyon  Arthur  B 

20806 

CHIEF  l 

PO 

SUPPLY 

DELK 

Nicholson  George  R 

20819 

PO  1st 

CLASS 

NAVIGATION 

Uc-LK 

Norton  Harold  G 

20845 

PO  2nd 

CLASS 

WEAPON  USER 

DELK 

Steevens  James  F 

20852 

PO  2nd 

CLASS 

WEAPUN  CONTKUL 

DELK 

isola  Mike  L 

20873 

PO  3rd 

GLASS 

WEArUN  UEEN 

Uuick  Gim  G 

20890 

PU  3rd 

CLASS  ■ 

WEAPON  CONTRUL 

UiiuK 

Ramey  Harold  A 

20892 

PO  3rd 

CLASS 

CUMMUNICA  T ION 

dElK 

Uuinn  Daniel  F 

20901 

PO  3rd 

CLASS 

NAVIGATION 

DElK 

lilt  Thomas  C 

20916 

SEAMAN 

WEAPON  USER 

DElK 

Uualls  Terry  D 

20627 

SEAMAN 

WEAPUN  USER 

DELK 

Pulk  Richard  G 

20936 

SEAMAN 

WEAPON  USER 

L'  i\ 

Miller  Jacj  T 

20948 

SEAMAN 

WLAPUN  UEeR 

UC.UA 

Little  Fredenk  J 

20949 

seaman 

WEAPUN  USER 

Delk 

Fiamini  Lharles  D 

20650 

Seaman 

WEAPUN  USER 

Fogel  Gregory  B 

20966 

SEAMAN 

WEAPON  CONTROL 

Delk 

Clark  James  D 

20972 

SEAMAN 

WEAPON  CONTROL 

DEti\ 

Clark  Andrews  I 

20978 

SEAMAN 

WEAPON  CONTROL 

DElK 

Biondi  Daniel  M 

20995 

SEAMAN 

WEAPUN  LON1RUL 

Armout  Paul  G 

21024 

SEAMAN 

COMMUNICATION 

DElK 

McPherson  Jack  A 

21284 

SEAMAN 

OUMMUNICA  T 1 UN 

DELK 

Mallon  Patrick  K 

21289 

seaman 

communication 

Delk 

Markley  Daniel  T 

21302 

seaman 

NAV iUA 1  ION 

DElk 

sansiven  Dan  K 

21335 

SEAMAN 

NAVIGATION 

Delk 

Sestak  Timothy  W 

21356 

SEAMAN 

NAVIGATION 

DECK 

Shapiro  Edwin  W 

21366 

SEAMAN 

navigation 

D  ELK 

weingarten  Sam  F 

21366 

SEAMAN 

RADAR  USER 

DElK 

Tran  Mike  K 

21409 

SEAMAN 

SANITARY 

DElK 

Trend  Ted  M 

21423 

SEAMAN 

SUPPLY 

DELK 
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DEPARTMENT  : 


SUPERVISOR  s 


NAME 

SERNG 

RANK 

— 

SPECIAL!  i 

U  E  p  A  R  1  hi 

Jaitee  Jay  M 

20741 

LIEUTENANT 

ENGINEER 

MACHINE 

Ervin  Joseph  H 

20768 

ENSIGN 

ENGINEER 

MACHINE 

Nezos  Fred  T 

20777 

MASTER 

CHIEF 

PO 

ELECTRICIAN 

riALil  i  i'i  C. 

Rugg  Sill  S 

20780 

MASTER 

CHIEF 

PO 

ELECI RUN 1 U 

MACH  1  tit. 

Appel  John  Li 

20784 

SENIOR 

CHIEF 

PO 

ENGINEER 

MACH  in  E 

Gorman  Dennis  H 

20831 

PO  1st 

CLASS 

ENGINEER 

Mach  ■  II  r. 

Condon  Tim  N 

20840 

PCI  1st 

CLASS 

electrician 

riAun  j.  iism 

Ibei  Peter  J 

20887 

pu  2nd 

CLASS 

ELECTRONIC 

MACH i HE 

Hobson  Aaron  n 

20810 

PU  3rd 

CLASS 

ENGINEER 

MACH  a ME 

Unger  Jell  H 

21438 

SEAMAN 

ENGINEER 

ti  i  1  x  1 4  r* 

Russ  Randy  G 

214S1 

SEAMAN 

ENGINEER 

f  l  ALhiNt, 

wiiixam -Robert  P 

2146b 

seaman 

engineer 

Mach i ne 

beam  Alan  K 

21487 

seaman 

ENG1 NEER 

MACH  !.  ilE 

Edson  Alan  8 

24869 

seaman 

ENGINEER 

Machine 

Cavaiim  Larry  F 

24893 

seaman 

ENGINEER 

MAL.I1  l  ME 

Martyr  Paul  J 

24806 

seaman 

ENGINEER 

•'I rtUH  1  i <  ir- 

KnuDis  James  p 

24828 

seaman 

ENGINEER 

M  A  L-  M  ill  E 

Kohn  Robert  H 

24951 

seaman 

ENGINEER 

MACHINE 

Sturgeon  James  K 

24983 

seaman 

ENG 1 NEEK 

MAcH  ilit. 

nett  uavia  G 

24897 

SEAMAN 

ELECTRICIAN 

M  Aofl  a  H E 

detune  bcott  u 

24898 

SEAMAN 

ELEC r RICIAN 

MAcH  1  iic. 

NiKola  Micnaei  E 

25001 

SEAMAN 

ELECTRICIAN 

M  A  C  H  a  i  1 E 

Cline  wnnam  R 

25016 

seaman 

ELECTRONIC 

Mach  i . i t. 

borensen  Donald  n 

85124 

SEAMAN 

Electron i c 

I'l  A  c  rl  1  M  E. 
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SUBDEPaRTMENT  : 


SUPER V  ISGR 


NAME 

SERNG 

BANK 

— 

SPECIAL  1 t 

S  U  6  D  E.  P  rt  R  i  i'l , 

Nelan  James  H 

20769 

MASTER 

CHIEF 

PG 

WEAPGN 

CONTROL 

CUMUA 1 

1  N  i-  U 

Armstrong  David  K 

207 S3 

SENIOR 

CHIEF 

PG 

RADAR 

USER 

CGMUA 1 

im-u 

Nezart  Jerome  G 

20601 

CHIEF 

PG 

RADAR 

USER 

CUM BA  1 

1  N  r  U 

Steevens  James  F 

20652 

PG  2nd 

CLASS 

WEAPGN 

CONTROL 

CUM BAT 

INF  u 

Quick  Gim  G 

20690 

PQ  3rd 

CLASS 

WEAPGN 

CONTROL 

COMBA 1 

1  Nr  U 

F'ogei  Gregory  B 

20966 

SEAMAN 

WEAPGN 

CON  1  RUL 

CUN BA  1 

X  N  (•  U 

Clark  James  u 

206/ 2 

SEAMAN 

WEAPON 

CON ] KUO 

CUN  BA  1 

i.  N  i -Ij 

tlark  Andrews  I 

20976 

SEAMAN 

WEAPGN 

CONTROL 

CUM  BAT 

1  N  <-  ij 

Biondi  Daniel  M 

20995 

SEAMAN 

WEAPON 

CUN i RUL 

LUflilA  i 

1  Nr  «j 

weingarten  Sam  F 

21366 

SEAMAN 

RADAR 

USC.K 

GUi'l  3  A  i 

3  N  r  U 
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susdepak  tmen  r  : 


SUPERVISOR 


NAME 

SERNO 

RANK 

SPECIALTY 

SUbL<c.iJAt<  i  /lilil  i 

Newell  Peet  S 

2U772 

MASTER 

CHIEF 

PO  COMMUNICATION 

COMMUN 1 L A  1  IONS 

Ramey  Harold  A 

20892 

PO  3rd 

CLASS 

COMMUNICATION 

UOMMUNiLA  i  iijNS 

Armout  Paul  G 

21024 

SEAMAN 

*• 

COMMUNICATION 

CuMMUNlCrtl  .  l;  t'i . . 

McPherson  JacK 

A 

212*4 

SEAMAN 

COMMUNiCA 11 UN 

LUi'lPlUN  XLA  i  x  Ij|<_ 

nailon  Patrick 

F 

212«9 

SEAMAN 

COMMUNICATION 

LUMMUNlLA’i  lUils 
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NAME 


Nicholson  George 
Uuinn  Daniel  F 
Markley  Daniel  T 
Sansiven  Dan  K 
Sestak  Timothy  w 
Shapiro  Edwin  W 


SUBDEPAKTMENV  :  . 

SUPEK V  IbUh£  :  . 

SESNO  HANK  SPECIALTY  SUbUtHKK 1 


K  20619  PQ  1st  CLASS 
20901  PG  3rd  CLASS 
21302  SEAMAN 
21335  SEAMAN 
2135S  SEAMAN 
21369  SEAMAN 


NAVIGATION 

NAVIGATION 

NAViUATIUN 

NAVIGATION 

NAVIGATION 

NAVIGATION 


NAVibA I 1UN 
NAVlbAl 1UN 
NAViGA i 1UN 
NA V  IGA i  ION 
NAViGA  I  1.  UN 
NAV  IbA  I  iUH 


Mc.N  i 
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SUBDEPARTMENT  : 


=  ts 

SUPERVISOR 

:  ...... 

NAME 

SERNG 

RANK 

SPECIALTY 

sUbuER i 

Russo  James  D 

20785 

SENIOR 

CHIEF  PO 

WEAPON 

USER 

WEAPONS 

Norton  Harold  G 

20845 

PO  2nd 

CLASS 

WEAPON 

USER 

WEAPUNS 

iaola  Mike  L 

20870 

PO  3rd 

Class 

WEAPON 

USER 

WEAPUNS 

lilt'  fnomaa  C 

2091b 

SEAMAN 

WEAPON 

USER 

WEAPUNS 

Quails  Terry  D 

20927 

SEAMAN 

WEAPON 

USER 

WEAPUNS 

Pulk  Richard  G 

20936 

SEAMAN 

WEAPON 

USER 

WEAPUNS 

Miller  Jacj  T 

20948 

seaman 

WEAPON 

USER 

WlARUNS 

Little  KrederiK 

J 

.10949 

seaman 

WEAPON 

USER 

WEAPUNS 

Klamini  Charles 

D 

20950 

SEAMAN 

WEAPON 

USER 

WEAPONS 
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subdepar rntN r  : 


NAME 


SUPcKVlbUR  i  . 

SEHNU  HANK  SPECIALTY  bUBUL/Ah  i  HtN  i 


Nezos  Fred  T 
Condon  Tim  N 
Kett  Oavia  Li 
(jetline  Scott  B 
Nikola  Michael  E 


20777  MASTER  CHIEF  PO  ELECTRICIAN 
20640  PQ  1st  CLASS  ELECTRICIAN 
24667  SEAMAN  ELECTRICIAN 
24966  SEAMAN  ELECTRICIAN 


ZO001  SEAMAN 


ELECTRICIAN 


Elec i Ric 
ELeci ric 
ELEcTK  1  C 
ELECTRIC 
ELEC  1 R 1 C 


i ME  I  AC 
illai  AC 
i  M  a  1  A  C 
t  N  E  !  A  c 

ilC  i  Aw 


J 

I 


J 

i 

J 
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1 


Mane 


ftugg  Bill  S 
Ibel  Peter  J 
Cline  william  k 
Sorensen  Donald  n 


buaithAK  TMEN  T  :  . 

SUPERVISOR  :  . 

SERNQ  RANK  SPECIALTY  blibUtt'Ah  I  TltN  i 


2(3780  MASTER  CHIEF  PU  ELECTRONIC 
20867  PQ  2nd  CLASS  ELECTRONIC 
20016  SEAMAN  ELECTRONIC 
65 1^4  SEAMAN  ELECTRONIC 


ELECTRUN  tUUii-Tl 
ELEC  TRUN  hUDiPN 

LLbL  i  RUN  tulJli-fi 
tLttlKUN  tUUii'll 
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SU8DEPARTMENT  : 


:  = 

SUPER V iSUR 

:  ... 

• 

N  AflE 

SERNO 

RANK 

SPECIALTY 

SU6DEFAU  1  Mti 

Jaffee  Jay  M 

20741 

LIEUTENANT 

ENGINEER 

MAIN 

ENGINes 

Ervin  Josepn  H 

20766 

ENSIGN 

ENGINEER 

MAIN 

ENGINES 

Appel  John  6 

20794 

SENIOR 

CHIEF 

PG  ENGINEER 

MAIN 

EnGi n  es 

Gorman  Dennis  H 

20631 

PU  1st 

CLASS 

ENGINEER 

MAIN 

E  N  u  i  N  E  z> 

Hobson  Aaron  M 

20910 

PO  3rd 

CLASS 

ENGINEER 

MAIN 

hNuiMLj 

Unger  Je±±"  H 

21436 

SEAMAN 

ENGINEER 

MAIN 

ENu I NfcS 

Puss  Kandy  G 

21451 

SEAMAN 

ENGINEER 

MAIN 

LNOiNti 

william  Kobert 

P 

21466 

SEAMAN 

ENGINEER 

MAIN 

ENGiNti. 

Beam  Alan  K 

21467 

SEAMAN 

ENGINEER 

MAIN 

ENu i Uti 

Eason  Alan  B 

24669 

seaman 

ENGINEER 

MAIN 

ENu  i  N  c.u 

Cavalim  Garry 

K 

24U93 

SEAMAN 

ENGINEER 

MAIN 

E  N  U  i  M  E  U 

Martyr  Paul  J 

24906 

SEAMAN 

ENGINEER 

MAIN 

E  N  G  I N  e  S 

KnuOis  James  P 

24929 

SEAMAN 

ENGINEER 

Main 

ENU  1  Nn.li/ 

Konn  Rober-t  H 

24951 

SEAMAN 

ENG1 NEER 

MAIN 

ENG i Neu 

Sturgeon  James 

K 

249a3 

SEAMAN 

ENGINEER 

riAiN 

ENGINES 
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CREW  ALLOCATION  INTU  TWO  SHIFTS 


{  SHIFT  "A"  i 


nahe 


RANK  SPECIALTY 


Tally  Chris  S 

LT.  COMMANDER 

DECK 

Emerson  Burt  F 

1st  LIEUTENANT 

deck 

Jeilerson  Jack  L 

ENSIGN 

delk 

Norton  Harold  G 

PG  2nd 

CLASS 

WEAPON  USER 

lilt  Thomas  C 

SEAMAN 

WEAPON  USER 

Pulk  Ricnard  G 

SEAMAN 

WEAPUN  USER 

Little  fredenk  J 

SEAMAN 

WEAPON  USER 

Nelan  James  H 

MASTER 

CHIEF 

PO 

WEAPUN  CUNlhUL 

Uuick  Ljim  G 

PU  3rd 

LLAbb 

WEAPUN  CON  I  RUE 

Clark  James  D 

SEAMAN 

WEAPON  Cunirul 

Biondi  Daniel  11 

SEAMAN 

WEAPUN  CONTROL 

Ramey  Harold  A 

PO  3rd 

CLASS 

COMMUNICATION 

McPherson  Jack  A 

SEAMAN 

COMMUNICATION 

Nicnolson  George  ft 

PO  1st 

CLASS 

NAV1GA  i  J.UN 

Markley  Daniel  T 

SEAMAN 

NAVlbA 1 1UN 

Sestak  Timothy  W 

SEAMAN 

NAVlUA l ION 

Armstrong  David  K 

SEN1UR 

CHiEh 

PU 

RADAR  USER 

Weingarten  Sam  F 

seaman 

RADaR  user 

Tran  Mike  K 

SEAMAN 

SANITARY 

Trend  Ted  M 

SEAMAN 

SUPPLY 

Ervin  Joseph  H 

ENSIGN 

ENGINEER 

Gorman  Dennis  H 

PO  1st 

CLASS 

ENuineeR 

Unger  jell  H 

SEAMAN 

enuineer 

William  Robert  P 

SEAMAN 

ENGINEER 

Edson  Alan  B 

SEAMAN 

ENGINEER 

Martyr  Paul  J 

SEAMAN 

ENGINEER 

Konn  Robert  H 

SEAMAN 

ENG I NEER 

Nezos  Fred  T 

master 

CHICK 

PO 

ELECTRICIAN 

Kett  David  G 

seaman 

ELECTRICIAN 

Nikola  Michael  E 

SEAMAN 

ELECTRICIAN 

Ibel  Peter  J 

PO  2nd 

CLASS 

ELECT  RUNiC 

Sorensen  Donald  M 

SEAMAN 

ELECT  RUNIC 
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CREW  ALLULA  I'iUN  1NTU  r  MU  SHIFTS 


(  SHIFT  "B"  ) 

• 

NAME 

RANK 

SPECIALTY 

Concon  Stephen  J 

LIEUTENANT 

DECK 

trtxe  Aaron  P 

ENSIGN 

DECK 

Russo  James  D 

SENIOR 

CHIEF 

PG 

WEAPON  USER 

Isoia  Mike  L 

PG  3rd 

CLASS 

WEAPON  USER 

Qualls  Terry  D 

SEAMAN 

WEAPON  USER 

Miller  Jacj  T 

SEAMAN 

WEAPON  USER 

Kiamim  Charles  D 

SEAMAN 

WEAPON  USER 

bteevens  James  F 

pu  2nd 

CLASS 

WEAPUN  CUN i RGL 

Fogel  Gregory  B 

SEAMAN 

WEAPON  CONTROL 

Clark  Andrews  I 

SEAMAN 

WEAPON  CONTROL 

Newell  Peet  S 

MASTER 

CHIEF 

PG 

COMMUNICATION 

Armout  Paul  G 

SEAMAN 

COMMUNICATION 

Malian  Patrick  F 

seaman 

CUMMUN 1 E A i 1UN 

Quinn  Daniel  F 

PG  3rd 

CLASS 

NAVIGATION 

Sansiven  Dan  K 

SEAMAN 

NAVIGATION 

Shapiro  Edwin  W 

SEAMAN 

NAVIGATION 

Nezart  Jerome  G 

CHIEF  1 

PG 

Radar  user 

Tngo  Bum  F 

CHIEF  1 

PG 

SANlTAR t 

Lyon  Arthur  B 

CHIEF  i 

PG 

SUPPC Y 

Jaxiee  Jay  M 

LIEUTENANT 

ENGINEER 

Appel  John  G 

SENIOR 

CHIEF 

PG 

ENGINEER 

Hooson  Aaron  M 

PG  3rd 

CLASS 

ENU1NEEH 

Russ  Handy  G 

SEAMAN 

ENGINEER 

Beam  Alan  K 

seaman 

ENGINEER 

Cavalini  Larry  F 

SEAMAN 

ENGINEER 

KnuDis  James  P 

SEAMAN 

ENGINEER 

Sturgeon  James  K 

seaman 

ENGINEER 

Condon  Tim  N 

PG  1st 

CLASS 

ELECTRICIAN 

betline  Scott  B 

SEAMAN 

ELECTRICIAN 

Rugg  Bill  S 

MASTER 

CHIEF 

PG 

ELEC  I  RON  1C 

Cline  William  k 

SEAMAN 

EEEC IRUNiC 
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CREW  ALLOCATION  into  three  shifts 


<  SHIFT  "A"  ) 


NAME 


RANK  SPECIALTY 


Tally  Chris  S 
Ertle  Aaron  P 
Norton  Harold  G 
Uualls  Terry  D 
Little  Fredenk  J 
Steevens  James  F 
Clark  James  D 
Newell  Peet  S 
McPherson  Jack  A 
Quinn  Uamel  F 
Sestak  Timothy  W 
Nezart  Jerome  0 
*Tran  Mike  K 
Jail'ee  Jay  rl 
Gorman  Dennis  H 
Russ  Randy  G 
Edson  Alan  b 
Knubis  James  P 
Nezos  Fred  T 
Getline  Scott  B 
Ibel  Peter  J 


LT.  COMMANDER 
ENSIGN 

PO  2nd  CLASS 

SEAMAN 

SEAMAN 

PG  2nd  CLASS 
SEAMAN 

MASTER  CHIEF 


DECK 

DECK 

WEAPON  USER 
WEAPUN  USER 
WEAPON  USER 
WEAPON  CUNTROL 
WEAPON  CCNTRUL 
COMMUNICATION 


SEAMAN 

PO  Ord  CLASS 

SEAMAN 

CHIEF  PO 

SEAMAN 

LIEUTENANT 

PO  1st  CLASS 

SEAMAN 

SEAMAN 

SEAMAN 

MASTER  CHIEF 
SEAMAN 

PO  2nd  CLASS 


COMMUNICATION 
NAVIGATION 
NAVIGATION 
RADAR  USER 
SANITARY 

engineer 

ENGINEER 

ENGINEER 

ENGINEER 

ENGINEER 

ELECTRICIAN 

ELECTRICIAN 

ELECTRONIC 
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CHEW  ALLUC AT  1UN  1NTU  THREE  bHlKTb 


<  SHIFT  "B"  ) 

■ 

NAME 

— 

RANK 

SPECIAL! V 

Concon  Stephen 

J 

LIEUTENANT 

DECK 

Jelierson  Jack 

L 

ENSIGN 

DECK 

Isola  Mike  L 

PG  3rd  CLASS 

WEAPON  USER 

Pulk  Richard  G 

SEAMAN 

WEAPON  USER 

Flamini  Charles 

D 

SEAMAN 

WEAPON  USER 

Uuick  Gim  G 

PG  3rd  CLASS 

WEAPON  LUN  i'KUL 

Clark  Andrews  I 

SEAMAN 

WEAPON  CONIKUL 

Ramey  Harold  A 

PG  3rd  CLASS 

COMMUNICATION 

Mallon  Patrick 

F 

seaman 

COMMUNICATION 

Markley  Daniel 

T 

SEAMAN 

NAVIGATION 

Shapiro  Edwin  W 

SEAMAN 

NAVIGATION 

Weingarten  Sam 

F 

SEAMAN 

RADAR  USER 

Lyon  Arthur  a 

CHIEF  PG 

SUPPLY 

Ervin  Joseph  H 

ENSIGN 

ENGINEER 

Hobson  Aaron  M 

PG  3rd  CLASS 

ENGINEER 

William  Robert 

P 

SEAMAN 

ENGINEER 

CavaJim  Larry 

F 

seaman 

ENGINEER 

Konn  Robert  ri 

seaman 

ENGINEER 

London  Tim  N 

PG  1st  CLASS 

ELECTRICIAN 

Nikola  Michael 

E 

SEAMAN 

ELECTRICIAN 

Cline  William  R 

SEAMAN 

ELECTRUNIL 
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CHEW  ACCOCA'f  IUN  1  NlU  THREE  SHIFTS 


(  SHIFT  "C"  > 


NAME  rank  SPECIALTY 


Emerson  hurt.  F  1st  LIEUTENANT  DECK 

Russo  James  0  SENIOR  CHIEF  PO  WEAPON  USER 

lilt  Thomas  C  SEAMAN  WEAPUN  USEk 

Miller  Jac]  T  SEAMAN  v  WEAPUN  USER 

Nelan  James  H  MASTER  CHIEF  PO  WEAPON  CONTROL 

Fogel  Gregory  fa  SEAMAN  WEAPON  CONTROL 

faionai  uaniei  n  seaman  weapon  uontrul 

Armout  Paul  O  SEAMAN  C0MMUN1CA TlUN 

Nicholson  George  R  PO  1st  CLASS  NAVIGATION 

Sansiveri  Dan  K  SEAMAN  NAVIGATION 

Armstrong  David  K  SENIOR  CHIEF  PO  RADAR  USER 

fr.igo  Bum  F  CHIEF  PU  SANl  I  ARY 

Trend  Ted  M  SEAMAN  SUPPLY 

Appel  John  G  SENIOR  CHiEF  PU  ENGINEER 

Unger  Jell  H  SEAMAN  ENGINEER 

Beam  Alan  K  SEAMAN  ENGINEER 

Martyr  Paul  J  SEAMAN  •  ENGINEER 

Sturgeon  James  K  SEAMAN  ENGINEER 

Kett  David  G  SEAMAN  ELECTRICIAN 

Rugg  Bill  S  MASTER  CHIEF  PO  ELECTRONIC 

Sorensen  Donald  M  SEAMAN  ELECTRONIC 
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SHIP  ORGANIZATION  DURING  SURFACE  ALlhI 


DESCRIPTION  NAME  OK  CREW  HEMS.  KANK 


COMMAND  officer 
navigator 

NAVIG.  RADAR 
HELM6MAN 
HF  BRIDGE  COMM. 
UHF  BRIDGE  COMM 
LEFT  OBSERVER 
RIGHT  OBSERVER 
LlC  SUPERVISOR 
AIR  RADAR 
SURFACE  RADAR 
1  RACK  RADAR 
ClL  COMMUNICAT. 
LENTR  REAP  CONT 
GUN  31  CONSOLE 

31  AMMO  SUPPL1 
GUN  32  CONSOLE 

32  AMMO  SUPPL1 
GUN  33  CONSOLE 

33  AMMO  SuPPLl 
TURPEDO  TUBE  1 
TORPEDO  TUBE  2 
SS  MISSILES  1 
TELETYPE  1 
TELETYPE  2 

HK  COMMUNICAT 
SURG  ROOM  SUPER 
SURG  ROOM 1 
ENG  CGNTR  ROOM 
MAIN  ENG1  ASS 1 
MAIN  ENG1  ASS2 
MAIN  ENG2  ASS1 
MAIN  ENG2  ASS2 
electr  genera n 
ELECTR  GENERAT2 
ELECTR  GENERAT3 
DISTR  TABLE  1 
DISTR  TABLE  2 
DAMAGE  CUNTRUL1 
DAMAGE  C0NTR0L2 
DAMAGE  CONTROLS 
RADIO  ROOM  SUP 


Tally  Chris  S 
Ertle  Aaron  P 
Weingarten  Sam  F 
Nicholson  George  R 
Ramey  Harold  A 
Armout  Paul  G 
Markiey  Daniel  T 
Sansiven  Dan  K 
Concon  Stephen  J 
Nezart  Jerome  G 
Armstrong  David  K 
Quick  Gim  G 
Lyon  Arthur  B 
Emerson  Burt  F 
Norton  Harold  G 
lilt  Thomas  C 
Russo  James  D 
Qualls  Terry  D 
isola  Mike  L 
Hulk  Richard  G 
Kogel  Gregory  B 
Clark  James  D 
Clark  Andrews  I 
Newell  Peet  S 
McPherson  Jack  A 
Malian  Patrick  K 
*igo  Bum  F 
Tran  Mike  K 
Jaiiee  Jay  n 
Gorman  Dennis  H 
Unger  Jell  H 
Hobson  Aaron  M 
Russ  Randy  G 
Kett  David  G 
Getline  Scott  B 
Nikola  Michael  E 
Nezos  Fred  T 
Condon  Tim  N 
Ervin  Joseph  H 
Appel  John  G 
Quinn  Daniel  F 
Jellerson  Jack  L 


LT.  COMMANDER 

ENSIGN 

SEAMAN 

PO  1st  CLASS 
PO  3rd  CLASS 
SEAMAN 
SEAMAN 


SEAMAN 
LIEUTENANT 
CHIEF  PO 
SENIOR  CHIEF  PO 
PO  3rd  CLAES 
CHIEF  PO 
1st  LIEUTENANT 
po  2nd  class 

SEAMAN 

SENIOR  UH1EF  pu 
SEAMAN 

PO  3rd  CLASS 

SEAMAN 

SEAMAN 

SEAMAN 

SEAMAN 

MASTER  CHIEF  PU 

SEAMAN 

SEAMAN 

CHIEF  PO 

SEAMAN 

LIEUT  ENANT 

PO  1st  CLASS 

SEAMAN 

PO  3rd  CLASS 

SEAMAN 

SEAMAN 

seaman 

SEAMAN 

MASTER  CHIEF  PO 
PO  1st  CLASS 
ENSIGN 

SENIOR  CHIEF  PO 
PO  3rd  CLASS 
ENSIGN 


SPLL1 AL 1 t 


DECK 

DECK 

radar  user 

NAV IGA iiUN 
COMMUNICATION 
COMMUNICA I 1UN 
NA V  IGA I iuN 
NA  V  IGA  i'lUN 
DECK 

RADAR  USER 
RAuAK  USc.rt 
WEAPON  '-UN  .  KOI  . 
SUPPLY 
DECK 

WEAPON  User. 

W  t A  PUN  USSR 
WtAtUN  USeK 
WEAPON  Ust.ii 
Wt-APuN  U-r.ii 
wEaPUN  use  R 
WEAPON  LUN  I  l-.UL 
WEAPON  CONi'rtUe 
WEAPUN  LGNi'hL't. 
COMMUNICA  I  ION 
UUMMUN i U A i i Oh 
COM MUN iCA I  ION 
SANI'l  Ak'i 

San 1  I AK 1 
ENGlNtEK 

enoinlsk 

ENGINEER 
ENG I NEER 
ENG 1 NEER 
ELECTRIC  l  AN 
ELECTRIulAN 
ELECTRICIAN 
ELECTRICIAN 
ELELTR  io 1  AN 
ENGINEER 
ENGI NEER 
NAV IGA T TUN 
DECK 
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SHIP  URBANIZATION  DURING 


DESCRIP  CION  NAME  OF  CREW  MEMB. 


ESM  Nelan  James  H 

ECU  Rugg  Ball  S 

31  AMMO  SUPPL2  Steevens  James  K 
G2  AMMO  SUPPL2  idei  Peter  J 
JJ  AMMO  SUPPL2  Miller  Jacj  T 
SS  MISS  CQNTR  Little  Fredenk  J 
SS  MISS  TELEPH  Fiamini  Charles  D 
SS  MISSILES  2  Biondi  Daniel  M 
SURG  R00M2  bestak  Timothy  W 

SURG  RUUMJ  bhapiro  Edwin  W 

DAMAGE  C0NTR0L4  Trend  Ted  M 
DAMAGE  CONTROLS  William  Robert  P 
DAMAGE  CONTROLS  Beam  Alan  K 
DAMAGE  CONTROL/  Edson  Alan  B 
DAMAGE  CQNTROLa  Cavalini  Larry  F 


SURFACE  ALERT 


Ranr  special n 


MASTER  CHIEF  PO  WEAPON  LUNTKUL 
MASTER  CHIEF  PO  ELECTRONIC 
PO  2nd  CLASS  WEAPON  iuNihUL 
PO  2nd  CLASS  ELECTRONIC 

SEAMAN  'weAPUN  USErt 

SEAMAN  WEAPON  USER 

SEAMAN  WEAPON  USER 

seaman  weapon  gonikul 

SEAMAN  NAViUAliON 

SEAMAN  NAVJ.OA  i  1UN 

SEAMAN  SUPPLY 

SEAMAN  ENOiNEEK 

SEAMAN  ENGINEER 

SEAMAN  ENGINEER 

SEAMAN  Engineer 


185 


Page  No.  1 

Ota/  17/Bb 

SHIP  ORGANIZATION  DURING  AIR  ALERT 


DESCRIPT ION  NAME  OF  CREW  MEMB.  RANK 


COMMAND  OFFICER  Tally  Chris  S  LT.  COMMANDER 

NAVIGATOR  Ertle  Aaron  P  ENSIGN 


Weingarten  Sam  F  SEAMAN 
Nicholson  George  R  PO  1st  CLASS 
Ramey  Harold  A 
Armout  Paul  G 


NAV1G.  RADAR 
HELMSMAN 
HF  BRIDGE  COMM. 
UHF  BRIDGE  CQMM 
LEFT  OBSERVER 
RIGHT  OBSERVER 
CIC  SUPERVISOR 
AiR  RADAR 
SURFACE  RADAR 
TRACK  RADAR 
CIC  COMMUNICAT. 


GUN  31  CONSOLE 

31  AMMO  SUPPL1 
GUN  S3  CONSOLE 

32  AMMO  SUPPL1 
GUN  33  CONSOLE 
3S  AMMO  SUPPL1 


MarRley  Daniel  T 
Sansiven  Dan  K 
Concon  Stephen  J 
Nezart  Jerome  G 
Armstrong  David  K 


Russo  James  D 
Qualls  Terry  D 
Isola  Mike  L 
Hulk  Richard  G 


PO  3rd  CLASS 

SEAMAN 

SEAMAN 

SEAMAN 

LIEUTENANT 

CHIEF  PO 

SENIOR  CHIEF  PO 

PO  3rd  CLASS 

CHIEF  PO 

1st  LIEUTENANT 

PO  2nd  CLASS 

SEAMAN 

SENIOR  CHIEF  PO 
SEAMAN 

PO  3rd  CLASS 
SEAMAN 


Quick  Gim  G 
Lyon  Arthur  B 
CENTR  WEAP  CONT  Emerson  Burt  F 

Norton  Harold  G 
lift  Thomas  C 


GUN  41  CONTROL 
GUN  42  CONTROL 
A/A  MISS  CONTR 
A/A  MISSILES  1 
TELETYPE  1 
TELETYPE  2 
HF  COMMUNICAT 


Miner  Jacj  T 
Little  Frederik  J 
Steevens  James  F 
Fogel  Gregory  B 
Newell  Peet  S 
McPherson  Jack  A 
Mallon  Patrick  F 


SEAMAN 

SEAMAN 

PO  2nd  CLASS 
SEAMAN 

MASTER  CHI EP  FU 

seaman 

seaman 


SURG  ROOM  SUPER 
SURG  RGCMl 
ENG  CONTR  ROOM 
MAIN  ENG1  ASSI 
MAIN  ENG1  ASS2 
MAIN  ENG2  ASSI 
MAIN  ENG2  ASS2 
ELECTR  GENERA T 1 
ELECTR  GENERA T2 
ELECTR  GENEKAT3 

distr  table  i 
DISTR  TABLE  2 
DAMAGE  CGNTROL1 
DAMAGE  CQNTRGL2 
DAMAGE  CONTROLS 


Trigo  Bum  F 
Tran  Mike  K 
Jail'ee  Jay  M 
Gorman  Dennis  H 
Unger  Je±l  H 
HoDson  Aaron  M 
Russ  Randy  G 
Kett  David  G 
Getline  Scott  B 
Nikola  Michael  E 
Nezos  Fred  T 
Condon  Tim  N 
Ervin  Joseph  H 
Appel  John  G 
Quinn  Daniel  F 


CHIEF  PO 
SEAMAN 
LIEUTENANT 
PO  1st  CLASS 
SEAMAN 

PO  3rd  CLASS 
SEAMAN 
SEAM AN 
SEAMAN 
SEAMAN 

MASTER  CHIEF  PU 
PO  1st  CLASS 
ENSIGN 

SENIOR  CHIEF  PO 
PO  3rd  CLASS 


Sr"  EC  1 AL  V  < 


DECK 

DECK 

RADAR  USSR 
NAViGAT'iUN 
COMMUNICAT'  I  uN 
CCMMUNICA 1 1 UN 
NA V iGA I i UN 
NAViGAT'iUN 
DECK 

RADAR  USSR 
RADAR  USSR 
WtAFUN  LUNI hUL 
SUPPLY 
DECK 

WEAPON  USER 
WEAPUN  UStK 
WEAPUN  USSR 
WEAPUN  USER 
WEAPUN  USSR 
WtAFUN  USsn 
WEAPUN  USSR 
WEAPUN  USSR 
WEAPUN  CONTROL 
WEAPUN  uUi'i  I  nUi. 
sUriMUNj.UA  i  J.UN 

CunMUN I u A . IUN 
CUMMUN  iUA  1  j  uii 
SAN i  1  ARY 
SAN i  i  AK  r 
ENGINEER 

engineer 
ENGINEER 
ENG i NEER 
ENUiNEEh 
ELECTR iu I an 
ELECTRiuiAN 
ELECTRICIAN 
ELECT  RICIAN 
ELECTRICIAN 
ENGINEER 
ENGINEER 
NAV IGA  t  IUN 
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Rage  No.  2 

Ob/ I //Bb 

SHIP  organization  during  air  alert 


description  name  of  crew  memb.  rank 


RADIO  ROun  SUP 
ESM 

ecm 

ji  Anno  suppl2 
J2  Anno  suppl2 
uu  Anno  bUPPL2 
A/A  mss  TELEPH 
A/A  mSSILES  2 
SURG  K00n2 
SUKG  ROOMS 
DAMAGE  C0NTR0L4 
DAMAGE  controls 
DArtAGE  CONTROLS 
DAMAGE  CONTROL/ 
DArtAGE  CONTROLS 


Jefterson  Jack  L 
Nelan  James  H 
Rugg  Bill  S 
Ibel  Peter  J 
Flamim  Charles  u 
Clark  James  D 
Clark  Andrews  I 
Biondi  Daniel  N 
Sestak  Tirnotny  w 
Snapiro  Edwin  W 
lrend  Ted  rt 
william  Robert  P 
Beam  Alan  K 
Edson  Alan  U 
Cavalini  Larry  F 


ENSIGN 

MASTER  CHIEF  PO 

MASTER  CHIEF  PU 

PO  2nd  CLASS 

SEAMAN 

SEAMAN 

SEAMAN 

SEAMAN 

SEAMAN 

SEAMAN 

SEAMAN 

SEAMAN 

SEAMAN 

SEAMAN 

SEAMAN 


SPECIAL TV 


DECK 

WEAPON  CONTROL 
ELECTRONIC 
ELECTRONIC 
weapon  USER 
WEAPON  CON  I  Rljc 
WEAPON  CON  i  Mil. 
WEAPON  CUN ; KUl 
NA V lOA  1  1 ON 

n a  v  io a  i' Ion 
supper 
ENGINEER 
ENGINEER 

Engineer 
ENG  I  NEc.it 
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Page  No.  1 

06/  1 7/ats 

SHIP  ORGANIZATION  DURING  ijtNthAL  AL.tR  t 


DESCRIPTION  N  API  t  UP  ChtW  MEMB.  WANK 


COMMAND  OFFICER 
NAVIGATOR 
NAVIG.  RADAR 
HELMSMAN 
HF  BRIDGE  COMM. 
UHF  BRIDGE  COMM 
LEFT  OBSERVER 
RIGHT  OBSERVER 
CIC  SUPERVISOR 
aIR  radar 
SURFACE  RADAR 
TRACK  RADAR 
CIC  COMMUNICAT. 
CENTR  WEAP  CONT 
GUN  31  CONSOLE 
Gl  AMMO  SUPPL1 
GUN  jz  consuls 
32  AMMO  SUPPL1 
GUN  GO  CONSOLE 
Jj  AMMO  SUPPLl 
GUN  41  CONTROL 
GUN  42  CONTROL 
TORPEDO  TUBE  1 
fURPEDU  TUBE  2 
A/A  MISS  CUNTR 
A/A  MISSILES  1 
SS  MISSILES  1 
TELETYPE  1 
TELETYPE  2 
HF  COMMUNICAT 
SURG  ROOM  SUPER 
SURG  ROOM! 

ENG  CONTR  ROOM 
MAIN  ENG1  ASS1 
MAIN  ENG1  ASS2 
MAIN  ENG2  ASS 1 
MAIN  ENG2  ASS2 
ELECTH  GENERATI 
ELEC TR  GENERAT2 
ELECT R  GENERAT3 
UlSTR  TABLE  I 
DISTR  TABLE  2 


Tally  Chris  S 
Ertle  Aaron  P 
Weingarten  Sam  F 
Nicholson  George  R 
Ramey  Harold  A 
Armout  Pa.ul  O’ 
MarKiey  Daniel  T 
Sansiven  Dan  K 
Concon  Stephen  J 
Nezart  Jerome  G 
Armstrong  David  K 
Quick  Gim  G 
Lyon  Arthur  B 
Emerson  Burt  F 
Norton  Harold  G 
lilt  Thomas  c 


LT.  COMMANDER 

ENSIGN 

SEAMAN 

PO  1st  CLASS 

PO  3rd  CLASS 

SEAMAN 

SEAMAN 

SEAMAN 

LIEUTENANT 

CHIEF  PO 

SENIOR  ChiEF  PU 

PO  jrd  CLASS 

CHIEF  PO 

1st  LIEUTENANT 

PO  2nd  CLASS 

SEAMAN 


Russo  James  D 
Qualls  Terry  D 
isola  HiKe  L 
Puik  Ricnaro  o 
Miller  Jacj  T 
Little  Frederik  J 
Fogel  Gregory  B 
Clark  James  D 
steevens  James  F 
Clark  Andrews  I 
Biondi  Daniel  M 
Newell  Peet  S 
McPherson  Jack  A 
Malian  Patrick  F 
Tngo  Bum  F 
Tran  Mike  K 
Jaizee  Jay  M 
Gorman  Dennis  H 
Unger  Jell  H 
Hooson  Aaron  M 
Russ  Randy  G 
Kett  David  G 
Getline  Scott  B 
Nikola  Michael  E 
Nezos  Fred  T 
London  Tim  N 


SENIOR  CHIEF 
SEAMAN 

PO  3rd  CLASS 
SEAMAN 

seaman 

seaman 

SEAMAN 

SEAMAN 

PU  2nd  CLASS 
SEAMAN 
SEAMAN 
MASTER  CHIEF 
SEAMAN 

seaman 

CHIEF  PO 
SEAMAN 
LI eU  TENANT 
PO  1st  CLASS 
SEAMAN 

PU  3rd  LLASb 

SEAMAN 

SEAMAN 

SEAMAN 

SEAMAN 

MASTER  CHIEF 
PO  1st  CLASS 


PU 


PU 


PU 


SPEL i  AC  1  Y 


DECK 

DECK 

Radar  user 
NAVIGATION 
C0MMUN1LA 1 iuN 
COMMUNIcAi iuN 
NA  V  IGA  I  i.  UN 
NAV IGA i iUN 
U  El  k 

hi  ADAH  Uiifcrt 
RAD  Ah  USER 
WEAPON  LUN 1 hUL 
SUPPLY 
DECK 

WEAPON  USEh 
WEAPUN  DSth 
weapon  user 
WEAPUN  USeR 
WEAPON  User 
W  t A  PUN  USER 
WEAPUN  User 
WEAPON  UStr. 
WEAPUN  CUM 'i  nui. 
WEAPUN  CU« i nU. 
WEAPUN  LUN  i  hC'L. 
WEAPON  CON . uUl 

WEAPUN  UUiY  i  NI.IL. 
CUMMUNluA  I  L  u  N 
CUMMUNlCA  TiUN 
COMMUNICAT  ION 
SANlTAR l 
SAN  I  i Ah  Y 
ENUiNtEh 
E  N  G 1  N  t  e  h 
ENG I NEER 
ENGINEER 
ENGl NEEK 
ELECTRICIAN 
ELECTRICIAN 
ELEC  I K  J  L  i  AN 
ELEC IRiUlAN 
ELEC  I  RlC  l  AN 
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Page  No. 
Ob/ 17/86 


SHIP  uKUANIl.AT1uN  DURING  GENERAL  ALERT 


DESCRIPTION  NAME  Of  CREW  MEMB.  RANK  6Pbi.iAL.i  i 


DAMAGE  CGNTRQL1  Ervin  Joseph  H 
DAMAGE  CQNTRGL2  Appel  John  G 
DAMAGE  CONTROLS  Guinn  Daniel  F 
RADiU  RGGM  SUP  Jeiierson  JacK  L 
E6M  Nelan  James  H 

ECM  Rugg  Bill  S 

31  AMMO  SUPPL2  Ibel  Peter  J 

AMMO  SUPPC2  Flamini  Charles  D 
33  AMMU  SUPPL2  Sestak  Timothy  w 
A/A  MISS  TELEPH  Shapiro  Edwin  W 
A/ A  MISSILES  2  Trend  Ted  M 
SS  MISS  CGNTR  William  Robert  P 
SS  MISS  TELEPH  Beam  Alan  K 
SS  MISSILES  2  Eason  Alan  B 
SURG  RGGM2  Cavalini  Larry  F 

SURG  ROOMS  Martyr  Paul  J 

DAMAGE  C0NTRGL4  Knuois  James  P 
u AM AUE  CONTROLS  Kotin  RoDert  H 
DAMAGE  CUNTKOLb  Sturgeon  James  "K 
DAMAGE  C0NTR0L7  Cline  William  R 
DAMAGE  CONTROLS  Sorensen  Donald  M 


ENSIGN  ENGINEER 

SENIOR  CHIEF  PG  ENGINEER 
PG  3rd  CLASS  NAviGailun 
ENSIGN  DELt\ 

MAS  TER  LH 1  Eh  PU  WEAPUN  uuf.  i  iiL. 
MASTER  CHIEF  PU  ELEC'i  Run  : 


PQ  2nd  CLASS 

tLcL  i  Hurt  i 

seaman 

WEAPUN  Ujl 

SEAMAN 

NA V 1UA i  LUN 

SEAMAN 

N  A  V  1  G  A  1  i  U  N 

SEAMAN 

SUPPLT 

SEAMAN 

engineer 

SEAMAN 

Eng  i  nc-er 

SEAMAN 

LKU i MLLn 

SEAMAN 

ENGINEER 

SEAMAN 

tNU  l  N  c-C-R 

SEAMAN 

ENG  l  NEc.R 

SEAMAN 

t/IGiNfccu 

SEAMAN 

E  N  GiNLtn 

Sc  .MAN 

ELEo  iKUN  .  w 

SEAMAN 

ELEE i RUN l u 
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